anchor.diff:        function GetAccounts : TArray<Cardinal> ;
         procedure SetAccounts(const AAccounts : TArray<Cardinal>);
       public
  -      constructor Create(AOwner: TComponent);
  -      destructor Destroy;
  +      constructor Create(AOwner: TComponent); override;
  +      destructor Destroy; override;
         property Accounts : TArray<Cardinal> read GetAccounts write SetAccounts;
         procedure FetchAll(const AContainer : TList<TOperationResume>); override;
     end;
  
positive.code:       property FilterKeys : TArray<TAccountKey> read GetFilterKeys write SetFilterKeys;
        constructor Create(AOwner: TComponent); override;
        destructor Destroy; override;
        procedure FetchAll(const AContainer : TList<TAccount>); override;
    end;
  
  
negative.code:   finally
     safeBox.EndThreadSave;
    end;
  end;
  
  { TMyAccountsDataSource }
  
  procedure TMyAccountsDataSource.FetchAll(const AContainer : TList<TAccount>);
  var
    i : integer;
    LAccs : TArray<TAccount>;
  begin
    LAccs := TWallet.Keys.AccountsKeyList.GetAccounts(FIncludePending);
    if FKeys.Count > 0 then begin
      for i := Low(LAccs) to High(LAccs) do
        if FKeys.Contains(LAccs[i].accountInfo.accountKey) then
          AContainer.Add(LAccs[i]);
    end else AContainer.AddRange(LAccs);
  end;
  
  { TOperationsDataSourceBase }
  