anchor.diff:        property FilterKeys : TArray<TAccountKey> read GetFilterKeys write SetFilterKeys;
         constructor Create(AOwner: TComponent); override;
         destructor Destroy; override;
  +      procedure FetchAll(const AContainer : TList<TAccount>); override;
  +  end;
  +
  +  { TMyAccountsDataSource }
  +
  +  TMyAccountsDataSource = class(TAccountsDataSource)
  +  public
         procedure FetchAll(const AContainer : TList<TAccount>); override;
     end;
   
  
positive.code:       function GetAccounts : TArray<Cardinal> ;
        procedure SetAccounts(const AAccounts : TArray<Cardinal>);
      public
        constructor Create(AOwner: TComponent);
        destructor Destroy;
        property Accounts : TArray<Cardinal> read GetAccounts write SetAccounts;
        procedure FetchAll(const AContainer : TList<TOperationResume>); 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 }
  