anchor.diff:      property Chart: TKMChart read fChart;
       property ChartType: TKMChartWarrior read fType;
     end;
  -
  -  PKMChartArmyMP = ^TKMChartArmyMP; //todo: Disuse
   
     TKMStatsValues = array[0..MAX_HANDS-1] of array [0..9] of Cardinal;
   
  
positive.code:           for J := 0 to playersList.Count - 1 do
            begin
              handId := StrToInt(playersList[J]);
              ChartArmyData := chartArmy^.GetChartData(handId);
              KMSummAndEnlargeArr(@chartData, @ChartArmyData);
            end;
  
  
negative.code:     for cKind := Low(TKMChartArmyKind) to High(TKMChartArmyKind) do
        for wType := Low(TKMChartWarriorType) to High(TKMChartWarriorType) do
        begin
          chartArmy := Charts_Army[ST, cKind, wType];
          chart := chartArmy.Chart;
          chart.Clear;
          chart.MaxLength := 0;
          chart.MaxTime := gGameParams.Tick div 10;
          chart.Peacetime := 60 * gGame.Options.Peacetime;
          chart.SetSeparatorPositions(fChartSeparatorsPos[ST]);
          chart.Caption := chartArmy.ChartType.GUIName + ' - ' + gResTexts[CHART_ARMY_CAPTION_INDEX[cKind]];
  
          for I := 0 to fListToShow[ST].Count - 1 do
          begin
  