Code:

procedure Delay(ATimeout: Integer);

{©Drkb v.3(2007): www.drkb.ru}

var

t: Cardinal;

begin

while ATimeout > 0 do

begin

   t := GetTickCount;

   if MsgWaitForMultipleObjects(0, nil^, False, ATimeOut, QS_ALLINPUT) = WAIT_TIMEOUT then

     Exit;

   Application.ProcessMessages;  // Пришли новые сообщения Windwos , обрабатываем их..

   dec(ATimeout, GetTickCount - t);

end;

end;