Timer und Laufzeit

[s.h.a.r.k]

Du musst schon vorher die Methode schreiben, die vom Timer aufgerufen werden soll. Dann kannst du es wie folgt machen:

Delphi-Quellcode:

TForm1 = class(TForm)
private
  procedure MyTimerMethodA(Sender: TObject);
  procedure MyTimerMethodB(Sender: TObject);
end;

{ ... }

procedure TForm1.MyTimerMethodA(Sender: TObject);
begin
  //
  // hier dein Code
  //

  // Vielleicht noch ein Umbiegen der Methode, die beim
  // Feuern des Timers aufgerufen werden soll ;)
  TTimer(Sender).OnTimer := MyTimerMethodB;
end;

procedure TForm1.MyTimerMethodB(Sender: TObject);
begin
  //
  // hier dein Code
  //
end;

{ ... }

var
  newTimer : TTimer;
begin
  newTimer := TTimer.Create(nil);
  newTimer.Enabled := False;
  newTimer.Interval := 1000;
  newTimer.OnTimer := MyTimerMethod; // hier die Zuweisung der passenden Methode
  newTimer.Enabled := True;
end;