anchor.diff:  begin
     selectedAccounts := GC.AddObject(TList<cardinal>.Create) as TList<cardinal>;
   
  -  if ASelection.RowCount > 0 then
  -  begin
  +  if ASelection.RowCount > 0 then begin
       for row := ASelection.Row to (ASelection.Row + ASelection.RowCount - 1) do begin
  -      if (TAccountComp.AccountTxtNumberToAccountNumber(
  -        FAccountsGrid.Rows[row].Account, acc)) then
  +      if (TAccountComp.AccountTxtNumberToAccountNumber(FAccountsGrid.Rows[row].Account, acc)) then
           selectedAccounts.Add(acc);
       end;
       FOperationsDataSource.Accounts := selectedAccounts.ToArray;
  -    FOperationsGrid.Caption.Text :=
  -      IIF(ASelection.RowCount = 1, Format('Account: %s', [TAccountComp.AccountNumberToAccountTxtNumber(selectedAccounts[0])]), 'Selected Accounts');
  +    FOperationsGrid.Caption.Text := IIF(ASelection.RowCount = 1, Format('Account: %s', [TAccountComp.AccountNumberToAccountTxtNumber(selectedAccounts[0])]), 'Selected Accounts');
       FOperationsGrid.RefreshGrid;
  -  end else begin
  +  end else
       OperationsMode := womAllAccounts;
  -  end;
   end;
   
   procedure TCTRLWallet.OnOperationSelected(Sender: TObject; constref ASelection: TVisualGridSelection);
  
positive.code:     LContainer.Clear;
      try
        // load selected user accounts
        for i := Low(AccountNumbers) to High(AccountNumbers) do
        begin
          acc := safeBox.Account(AccountNumbers[i]);
          if keys.IndexOfAccountKey(acc.accountInfo.accountKey) >= 0 then
          begin
            LContainer.Add(acc);
          end;
        end;
      finally
        safeBox.EndThreadSave;
  
negative.code:       cbAccounts.Items.Objects[i].Free;
      cbAccounts.Items.Clear;
      // add new items
      for i := 0 to TWallet.Keys.Count - 1 do begin
        // get i'th key
        key := TWallet.Keys.Key[i];
        // fix name
        if (key.Name = '') then begin
          str := 'Sha256=' + TCrypto.ToHexaString(TCrypto.DoSha256(
            TAccountComp.AccountKey2RawString(key.AccountKey)));
        end else begin
          str := key.Name;
        end;
        if not Assigned(key.PrivateKey) then
  