Wartepause

[gekmihesg]

ich würd das nehmen

Delphi-Quellcode:

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