Timer in Schleife verwenden

[Äfan]

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
Var
  DateTime : TDateTime;
  Uhrzeit : string;
  i : Integer;
begin
  for i := 1 to 5 do begin
  DateTime := Time;
  Uhrzeit := TimeToStr(DateTime);
  StatusBar1.Panels[0].Text := Uhrzeit;
  Timer1.OnTimer(self);
 end;
end;