Timer in Schleife verwenden

[Ultimator]

1 Timer auf der Form; beim mir mit Interval 3000; Active
1 Button auf der Form

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.OnTimer(self);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ShowMessage('Geht!!!');
end;

Compiliert und funktioniert.