anchor.diff:    procedure AddToNewTeam(aFirstHandId: Integer; aPlayersList: TStringList);
     var
       PlayersList: TStringList;
  +    Cnt: Integer;
     begin
       PlayersList := TStringList.Create;
       PlayersList.AddStrings(aPlayersList);
       fListToShow[st_ByTeams].AddObject(IntToStr(aFirstHandId), PlayersList);
  -    fNamesToShow[st_ByTeams, fListToShow[st_ByTeams].Count - 1] := gResTexts[TX_LOBBY_HEADER_TEAM] + ' ' + IntToStr(fListToShow[st_ByTeams].Count);
  -    fColorsToShow[st_ByTeams, fListToShow[st_ByTeams].Count - 1] := gHands[aFirstHandId].FlagColor;
  -  end;
  -
  -  procedure AddToTeam(aTeamI: Integer; aPlayersList: TStringList);
  +    Cnt := fListToShow[st_ByTeams].Count - 1;
  +    fNamesToShow[st_ByTeams, Cnt] := gResTexts[TX_LOBBY_HEADER_TEAM] + ' ' + IntToStr(fListToShow[st_ByTeams].Count);
  +    fColorsToShow[st_ByTeams, Cnt] := gHands[aFirstHandId].FlagColor;
  +
  +    fTeamMembersNames[Cnt][0] := GetOwnerName(aFirstHandId);
  +    fTeamMembersColors[Cnt][0] := gHands[aFirstHandId].FlagColor;
  +    fTeamMembersCounts[Cnt] := 1;
  +  end;
  +
  +  procedure AddToTeam(aHandId, aTeamI: Integer; aPlayersList: TStringList);
     var
       PlayersList: TStringList;
  +    Cnt: Integer;
     begin
       PlayersList := TStringList(fListToShow[st_ByTeams].Objects[aTeamI]);
       PlayersList.AddStrings(aPlayersList);
  +    Cnt := fListToShow[st_ByTeams].Count - 1;
  +
  +    fTeamMembersNames[Cnt][fTeamMembersCounts[Cnt]] := GetOwnerName(aHandId);
  +    fTeamMembersColors[Cnt][fTeamMembersCounts[Cnt]] := gHands[aHandId].FlagColor;
  +    Inc(fTeamMembersCounts[Cnt]);
     end;
   
   var
  
positive.code:     procedure RadioEconomyTypeChange(Sender: TObject);
      procedure RadioWareTypeChange(Sender: TObject);
      procedure RadioArmyTypeChange(Sender: TObject);
  
      procedure Reinit;
      procedure ReinitPlayersToShow;
  
negative.code: end;
  
  
  function TKMGameResultsMP.GetChartLegendDetailedTitles(aStatType: TKMStatType; aLineI: Integer): TStringArray;
  var
    I: Integer;
  begin
    case aStatType of
      st_ByPlayers: SetLength(Result, 0);
      st_ByTeams:   begin
                      SetLength(Result, fTeamMembersCounts[aLineI]);
                      for I := 0 to fTeamMembersCounts[aLineI] - 1 do
                        Result[I] := fTeamMembersNames[aLineI, I];
                    end;
    end;
  end;
  
  
  function TKMGameResultsMP.GetChartLegendDetailedColors(aStatType: TKMStatType; aLineI: Integer): TKMCardinalArray;
  var
    I: Integer;
  begin
    case aStatType of
      st_ByPlayers: SetLength(Result, 0);
      st_ByTeams:   begin
                      SetLength(Result, fTeamMembersCounts[aLineI]);
                      for I := 0 to fTeamMembersCounts[aLineI] - 1 do
                        Result[I] := fTeamMembersColors[aLineI, I];
                    end;
    end;
  end;
  
  
  procedure TKMGameResultsMP.UpdateVisibleTab;
  begin
    if Panel_Bars.Visible then
  