begin if fromclient and (pck[1]=#$0E) then begin buf := pck; writed(216, 2); //216=ProtocolVersion pck := buf; end; end.