Warten Befehl?

[MrKnogge]

Ich benutz immer folgende procedure, gefunden im EDH:

Delphi-Quellcode:

procedure Wait(time: word);
var Start: Integer;
begin
  Start:=GetTickCount;
  while GetTickCount-Start <= time do
    application.ProcessMessages;
end;