anchor.diff:      procedure ChatMenuShow(Sender: TObject);
   
       procedure PlayerMenuClick(Sender: TObject);
  -    function DoShowPlayerMenu(Sender: TObject): Boolean;
  +    function CanShowPlayerMenu(Sender: TObject): Boolean;
       procedure PlayerMenuShow(Sender: TObject);
   
       procedure PlayersSetupChange(Sender: TObject);
  
positive.code: begin
    ctrl := TKMControl(Sender);
  
    if not DoShowPlayerMenu(Sender) then Exit;
  
    //Remember which player it is by his server index
    //since order of players can change. If someone above leaves we still have the proper Id
  
negative.code: end;
  
  
  function TKMMenuLobby.CanShowPlayerMenu(Sender: TObject): Boolean;
  var
    ctrl: TKMControl;
  begin
  