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: 
        if HandId in Teams[J] then
        begin
          DoShowTeam := True; //Team coould be hidden in case we show stats during the game
          if TeamIsNew then
          begin
            TeamIsNew := False;
            AddToNewTeam(HandId, PlayersList);
          end else
            AddToTeam(TeamI, PlayersList);
        end;
      end;
      if not TeamIsNew then //check if there was empty teams
        Inc(TeamI);
  
      if DoShowTeam and (J <> Low(Teams)) then
        fChartSeparatorsPos[st_ByTeams].Add(IntToStr(J));
    end;
    if fListToShow[st_ByTeams].Count <= 1 then
      fChartSeparatorsPos[st_ByTeams].Clear; //In case we have only 1 team to show (f.e. when stats are shown during the game)
  end;
  
negative.code: 
            HandId := StrToInt(PlayersList[0]);
            Chart^.MaxLength := Max(Chart^.MaxLength, gHands[HandId].Stats.ChartCount);
            Chart^.AddLine(fNamesToShow[ST, I], fColorsToShow[ST, I],
                           GetChartLegendDetailedTitles(ST, I),
                           GetChartLegendDetailedColors(ST, I),
                           ChartData, I);
          end;
  
          Chart^.TrimToFirstVariation; // Trim Army charts, as usually they are same before PeaceTime
  