Timerereignis

[jbg]

Das ganze kann man auch ohne Timer erledigen (API GetTickCount() ).
Mit einem Timer könnte das ganze so aussehen:

Code:

procedure abc;
begin
 // ...
  Timer1.Enabled := True;
  while Timer1.Enabled do Application.ProcessMessages;
 // ...
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
end;