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