Если
delphi Код:
//...
if FromServer and (pck[1]=#$39) then begin //от сервера получен пакет $39
if ReadS(2) = 'Перотехник' then //проверяем от кого
begin
buf:=hstr('49 01 00 00 00'); //Формирование 1го пакета
SendToServer; //Посылка 1го
buf:=hstr('43 01 00 00 00') //Формирование 2го пакета
end;
else
//...
Не сработает (Не успеет обработать 2 пакета подряд), то нужно будет реализовывать через таймер.
Добавлено через 4 минуты
(Или через делей, который не очень)