begin if FromClient and (pck[1]=#$56) then begin pck:=''; buf:=#$49; Writes('HELLO'); Writed(0); SendtoServer; end; end.