Pause wie beim Sleep-Befehl

[Der.Kaktus]

heute meinen netten tag habe *gg*

Delphi-Quellcode:

procedure Delay(msec: integer);
var start, stop: LongInt;
begin
  start := GetTickCount;
  repeat
    stop := GetTickCount;
    Application.ProcessMessages;
  until (stop-start)>=msec;
end;