Anwendung pausieren lassen ohne sie einzufrieren

[Luckie]

Delphi-Quellcode:

procedure TForm1.Delay(msecs:integer); 
var 
  FirstTickCount:longint; 
begin 
  FirstTickCount:=GetTickCount; 
  repeat 
    Application.ProcessMessages; {allowing access to other controls, etc.} 
  until ((GetTickCount-FirstTickCount) >= Longint(msecs)); 
end;