anchor.diff:  unit GeneticAlgorithmParameters;
  -
   interface
   uses
     Classes, SysUtils, Math,
  
positive.code:     procedure SetParameters(const aSet: TAIParSet; const aIdv: TGAIndividual; aLogIt: Boolean = False);
      procedure SetPar_HandLogistics(const aIdv: TGAIndividual; aLogIt: Boolean = False; K: Word = 0);
    public
      constructor Create();
      destructor Destroy(); override;
  
      property SetLogPar: TKMLog write fLogPar;
      property CurrentClass: String read fClass write fClass;
  
negative.code: end;
  
  
  destructor TGAParameterization.Destroy;
  begin
    fLogPar := nil;
    fClass := '';
  
    inherited;
  end;
  
  
  // Small helping function
  