anchor.diff:  
   type
   
  -  TKMEvaluation = record
  -    EmemyIndex : TPlayerIndex; // to make sure on get
  -    VictoryChance : Single;
  -    Power : Single;
  -    UnitTypesPower : array [ut_Militia..ut_Barbarian] of Single;
  +  TKMEvaluation = class
  +  private
  +  protected
  +  public
  +
  +    fEmemyIndex : TPlayerIndex; // to make sure on get
  +    fVictoryChance : Single;
  +    fPower : Single;
  +    fUnitTypesPower : array [ut_Militia..ut_Barbarian] of Single;
  +
  +    constructor Create;
  +
  +    procedure Reset;
  +    
     end;
  -  PKMEvaluation  = ^TKMEvaluation;
   
     // This class evaluate self army relatively enemy armies
     TKMArmyEvaluation = class (TObject)
  
positive.code:     procedure UpdateState; // Call to update evaluation
  
      property EnemiesCount : integer read GetEnemiesCount;
      property Evaluations[Index:TPlayerIndex]:PKMEvaluation read GetEvaluationByIndex;
  
    end;
  
  
negative.code:     fEvals : array [0..MAX_PLAYERS] of TKMEvaluation; // Results of evaluetion (PKMEvaluation)
  
      function GetEnemiesCount : integer;                              
      function GetEvaluationByIndex(Index : TPlayerIndex) : TKMEvaluation;
      procedure ResetEvaluation; // Reset to default                            
      procedure EvaluateChance(Stats : TKMPlayerStats; PlayerIndex : TPlayerIndex);
      procedure EvaluatePower(Stats : TKMPlayerStats; PlayerIndex : TPlayerIndex);
  