[v1s2222]

Да хоть так.

Код:

procedure Delay(const AMilliseconds: Cardinal); 
var 
  SaveTickCount: Cardinal; 
begin 
  SaveTickCount := GetTickCount; 
  repeat 
    Application.ProcessMessages; 
  until 
    GetTickCount - SaveTickCount > AMilliseconds; 
end;

Вместо sleep.