anchor.diff:        cbAccounts.Items.Objects[i].Free;
       cbAccounts.Items.Clear;
       // add new items
  -    for i := 0 to TWallet.Keys.Count - 1 do
  -    begin
  +    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
  +      if (key.Name = '') then begin
           str := 'Sha256=' + TCrypto.ToHexaString(TCrypto.DoSha256(
             TAccountComp.AccountKey2RawString(key.AccountKey)));
  -      end
  -      else
  -      begin
  +      end else begin
           str := key.Name;
         end;
         if not Assigned(key.PrivateKey) then
  
positive.code:     cbAccounts.ItemIndex := 0
    else if selectLast then
      cbAccounts.ItemIndex := cbAccounts.Items.Count - 1
    else
    begin
      for i := 1 to cbAccounts.Items.Count - 2 do
      begin
        if TAccountKeyEqualityComparer.AreEqual(TBox<TAccountKey>(
          cbAccounts.Items.Objects[i]).Value, last_key) then
        begin
          cbAccounts.ItemIndex := i;
          exit;
        end;
  
negative.code:   end;
  end;
  
  function TCTRLWallet.GetAccounts(const AccountNumbers: TArray<cardinal>): TArray<TAccount>;
  var
    acc: TAccount;
    safeBox: TPCSafeBox;
  