ich mach das (manchmal) so:
Delphi-Quellcode:
uses DateUtils;
.
.
procedure Wait(Ams : Integer);
var ZP : TDateTime;
begin
ZP:=IncMilliSecond(Now,Ams);
while ZP > Now do
Application.ProcessMessages;
end;
Ist ne, wie ich finde, sehr amüsante Alternative