[[duilioisola]]

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); {Similar al Windows.Sleep}
var
  ATickCount: DWORD;
begin
  ATickCount := GetTickCount + dwMilliseconds;
  while ATickCount > GetTickCount do
    Application.ProcessMessages;
end;