[angvelem]

Вот, что даёт поиск:

Код:

procedure Delay(dwMilliseconds: Longint);
var
   iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Application.ProcessMessages;
  until (iStop - iStart) >= dwMilliseconds;
end;

и это, только один из вариантов.