Отправка пакетов через промежуток времени

[craaash]

Здравствуйте жуковцы.В общем,появилась надобность отправить несколько пакетов,отделённых между собой промежутком времени,и отправляющихся,лишь при соблюдении условия...И так ближе к делу...
1)Требуется,чтобы в случае получения пакета-(11 11 11 11) через секунду отправился пакет (22 22 22 22),еще через 2 секунды пакет (33 33 33 33),и ещё через 3 секунды пакет (44 44 44 44)...Пробовал так:

const
UNam='nick';
begin
       if FromClient and (ConnectName=UNam) and 
       (pck= HStr('11 11 11 11')) then begin;
       delay(5000);
      buf:=HStr('22 22 22 22');
      SendToServerEx(UNam);
      delay(5000);
      buf:=HStr('33 33 33 33');
      SendToServerEx(UNam);    
      delay(5000);
      buf:=HStr('44 44 44 44');
      SendToServerEx(UNam);
      pck:=('')  ;
      end;
      end.   ;

Но почему то клиент зависает после этого...
2) И вот ещё вопрос,можно ли как нибудь проверить,не находится ли чар в боевом режиме?
Заранее спасибо.

[J-Fobos]

1. Используйте таймер. Как? Описано на форуме.
2. Боевой режим это фиолетовый ник? Если да, то пакет StatusUpdate.

[FlyToDream]

Цитата: Сообщение от J-Fobos 1. Используйте таймер. Как? Описано на форуме. 2. Боевой режим это фиолетовый ник? Если да, то пакет StatusUpdate.

Скорее боевой режим-это когда персонаж находится\лся в бою и не может ничего сделать определенное кол-во времени.