ich hab mir folgende delay_procedure geschrieben, die
so funktioniert wie ich mir das vorstelle.
Delphi-Quellcode:
procedure mein_delay(msec:longint);
var
Start,Stop:extended;
begin
start := gettickcount;
repeat
stop := gettickcount;
application.processmessages;
until (stop - start ) >= msec;
end;