procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ShowMessage('Timer1 時間到');
end;    procedure TForm1.ABC;
var 
Timer1, Timer2 : TTimer;
begin
  Timer1 := TTimer.create(self);
  Timer2 := TTimer.create(self);
  try
    Timer1.Inteval := 2000 //2秒
    Timer1.onTimer := Timer1Timer;
    Timer1.Enabled := true; 開始計時
    Timer2....
  finally
    Timer1.Free;
    Timer2.Free;
  end;
end;

var
  Form1: TForm1;        // H e r e  
Timer1,Timer2 : TTimer; // <- 設定為 Global變數
...    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.free;
  Timer2.Free;
end;