[alexteam]

аццкий быдлокод )

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.