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