anchor.diff:  end;
   
   
  -destructor TGAParameterization.Destroy();
  +destructor TGAParameterization.Destroy;
   begin
     fLogPar := nil;
     fClass := '';
   
     inherited;
   end;
  -
   
   
   // Small helping function
  
positive.code:   else if (CompareStr(fClass, 'TKMRunnerGA_ArmyAttackNew') = 0) then Result := GetParCntFromSet(SetArmyAttackNew)
    else Result := 0;
  end;
  
  procedure TGAParameterization.SetPar(const aIdv: TGAIndividual; aLogIt: Boolean = False);
  begin
  
negative.code: unit GeneticAlgorithmParameters;
  interface
  uses
    Classes, SysUtils, Math,
  