anchor.diff:  implementation
   
   uses
  -  SysUtils, UConst, ULog, UAES, UFolderHelper;
  +  SysUtils, UConst, ULog,
  +  {$IFDEF INTERNAL_USE_FOLDERHELPER_UNIT}
  +  UFolderHelper,
  +  {$ENDIF}
  +  UAES;
   
   Const
     CT_PrivateKeyFile_Magic = 'TWalletKeys';
  
positive.code: 
  { TWallet }
  
  class function TWallet.GetMiningKey: TAccountKey;
  Var PK : TECPrivateKey;
    i : Integer;
  
negative.code:   Result := FKeys;
  end;
  
  {$IFDEF INTERNAL_USE_FOLDERHELPER_UNIT}
  class procedure TWallet.Load;
  begin
    try
  