anchor.diff:      pfText:   M.Read(Msg);
     end;
     M.Free;
  -
   
     case Kind of
       mk_GameVersion:
  
positive.code:               if Assigned(fOnPlay) then fOnPlay(Self);
  
      mk_Commands:
              begin
                if Assigned(fOnCommands) then fOnCommands(Msg);
              end;
  
      mk_Text:
              begin
                if Assigned(fOnTextMessage) then
                  fOnTextMessage(Msg);
              end;
    end;
  end;
  
  
negative.code: 
  function TKMNetworking.IsHost:boolean;
  begin
    Result := (fLANPlayerKind = lpk_Host);
  end;
  
  
  