Also ich verwende dafür diese Funktion:
Delphi-Quellcode:
procedure delay(msec:longint);
var
start,stop:longint;
begin
start := gettickcount;
repeat
stop := gettickcount;
application.processmessages;
until (stop - start ) >= msec;
end;
Vielleicht hat's geholfen
Übrigens:
[ DAS HIER ] ist viel Ressourcenschonender, also schau's dir mal an...
Viele Grüße,
CK_CK