Показать сообщение отдельно
  #9  
Старый 09.12.2010, 19:34
Ama Ama вне форума
Активный
 
Регистрация: 15.07.2008
Сообщения: 260
Репутация: 23
По умолчанию

А если так:
Код:
procedure doWait(MilliSec: Cardinal);
  var CC: Cardinal;
 begin
  CC:= GetTickCount;
  while GetTickCount < (CC + MilliSec) do
  Application.ProcessMessages;
 end;
__________________
APPLICATION.TERMINATOR
Ответить с цитированием