anchor.diff:        for WType := High(TKMChartWarriorType) downto Low(TKMChartWarriorType) do
           FreeAndNil(Charts_Army[ST,CKind,WType]);
   
  -    FreeAndNil(fListToShow[ST]);
  +    FreeListToShow(ST);
       FreeAndNil(fChartSeparatorsPos[ST]);
     end;
   end;
  
positive.code: end;
  
  
  procedure TKMGameResultsMP.RecreateListToShow(aStatType: TKMStatType);
  begin
    FreeAndNil(fListToShow[aStatType]);
  
    fListToShow[aStatType] := TStringList.Create;
    fListToShow[aStatType].Sorted := False;     //Need to append players to show at the end of list
  
negative.code:     fStatsValues: array[TKMStatType] of TKMStatsValues;
  
      fShowAIResults: Boolean;
      procedure FreeListToShow(aStatType: TKMStatType);
      procedure RecreateListToShow(aStatType: TKMStatType);
      procedure BackClick(Sender: TObject);
      function DoAdjoinSameColorHand(aHandId: Integer): Boolean;
  