begin if fromclient and (pck=#$6C) then begin buf:=#$6C; WriteD(ReadD(2)); WriteD(ReadD(6)); WriteD(0); SendToServer; WriteD(ReadD(6)-1, 6); SendToServer; pck := ''; end; end.