begin if FromClient then case ConnectName of name: case pck[1] of #$0F: begin buf := pck; WriteD(1); pck := buf; SendMsg('Пофиксили'); end; end; end; end.