anchor.diff:      private
         class var FKeys : TWalletKeysExt;
         class function GetKeys : TWalletKeysExt; static;
  +      {$IFDEF INTERNAL_USE_SETTINGS_UNIT}
         class function GetMiningKey : TAccountKey; static;
  +      {$ENDIF}
         class procedure CheckLoaded;
         class procedure CheckUnlocked;
       public
         class property Keys : TWalletKeysExt read GetKeys;
  +      {$IFDEF INTERNAL_USE_SETTINGS_UNIT}
         class property MiningKey : TAccountKey read GetMiningKey;
  +      {$ENDIF}
  +      {$IFDEF INTERNAL_USE_FOLDERHELPER_UNIT}
         class procedure Load;
  +      {$ENDIF}
         class function HasKey(const AKey: TWalletKey) : boolean;
         class procedure DeleteKey(const AKey: TWalletKey);
         class procedure GenerateNewKey(const AName: String; AEncryptionTypeNID : Word);
  
positive.code:   end;
    Result := PublicK;
  end;
  
  class function TWallet.GetKeys : TWalletKeysExt;
  begin
  
negative.code: implementation
  
  uses
    SysUtils, UConst, ULog,
    {$IFDEF INTERNAL_USE_FOLDERHELPER_UNIT}
    UFolderHelper,
    {$ENDIF}
    UAES;
  
  Const
    CT_PrivateKeyFile_Magic = 'TWalletKeys';
  