Stand aber nicht in der Frage!
Desweiteren ist das schlecht für die anderen Prozesse im System...
Ich würde die ganze Sache so formulieren...
Delphi-Quellcode:
procedure Wait(time: word);
var Start: Integer;
begin
Start:=GetTickCount;
while GetTickCount-Start <= time do
begin
application.ProcessMessages;
Sleep(0); // Terminiere Zeitscheibe bzw. Sleep(1); um Prozessor zu entlasten
end;
end;
..., wenn es nicht exakt sein soll!
Ganz ideal wäre ein System-Timer via MsgWaitForMultipleObjects (was hunderstel genau funktioniert).
Falls interesse besteht -> muss ich mir den Code noch ausdenken