[Lilium]

всо спс разобрался
сделал

begin
  if FromClient
  and (pck=HStr('xx yy zz')) then begin
    buf:=HStr('zz xx yy 00 00');
    SendToServer;
    pck:='';
  end;
end.

я нуб

Добавлено через 3 часа 6 минут
а как сделать что бы несколько пакетов посылал?