Delphi-Tutorials

So geht's ganz leicht:
Mit folgendem Aufruf kann man das Programm kurz schlafen legen. Anstatt des x kommt die Wartezeit in ms hinein:

 Sleep (x);

Bei Sleep werden keine Windows-Botschaften abgearbeitet. Das kann u.U. zu Darstellungsfehlern führen. Probier bei Problemen folgenden Code. Füge die beiden Prozeduren nach implementation ein:
procedure ProcessMessages;
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, GetCurrentProcess, 0, 0, PM_REMOVE) do begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

procedure Delay(const WaitTime: DWord);
var
  Start: DWord;
begin
  Start := GetTickCount;
  repeat
    ProcessMessages;
  until (GetTickCount - Start) > WaitTime;
end;

Der Aufruf erfoglt dann mit delay(x);
Quelle: DelphiWorks: Win32-Bibliothek von Codehunter