Kann der PC net Zählen??

[Luckie]

Noch besser. Anstatt sleep, das benutzen:

Delphi-Quellcode:

procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;