Mira este
hilo
Se que
GetTickCount es más preciso. Puede que te sirva.
Ponen este código:
Código Delphi
[-]
procedure Delay(dwMilliseconds: DWORD);
var
ATickCount: DWORD;
begin
ATickCount := GetTickCount + dwMilliseconds;
while ATickCount > GetTickCount do
Application.ProcessMessages;
end;