anchor.diff:  begin
     If (Not Assigned(FOrderedAccountsKeyList)) And (Assigned(FNode)) Then begin
       FOrderedAccountsKeyList := TOrderedAccountKeysList.Create(FNode.Bank.SafeBox,false);
  +    FNodeNotifyEvents.WatchKeys := FOrderedAccountsKeyList; // XXXXXXXXX Assign the Keys to Watch!!!
     end;
     if (cbMyPrivateKeys.ItemIndex>=0) then last_i := PtrInt(cbMyPrivateKeys.Items.Objects[cbMyPrivateKeys.ItemIndex])
     else last_i := -1;
  
positive.code:       end else begin
          s := wk.Name;
        end;
        if Not Assigned(wk.PrivateKey) then s := s + '(*)';
        cbMyPrivateKeys.Items.AddObject(s,TObject(i));
      end;
      cbMyPrivateKeys.Sorted := true;
  
negative.code:     procedure OnNetNodeServersUpdated(Sender : TObject);
      procedure OnNetBlackListUpdated(Sender : TObject);
      Procedure OnNodeMessageEvent(NetConnection : TNetConnection; MessageData : TRawBytes);
      Procedure OnNodeKeysActivity(Sender : TObject);
      Procedure OnSelectedAccountsGridUpdated(Sender : TObject);
      Procedure OnMiningServerNewBlockFound(Sender : TObject);
      Procedure UpdateConnectionStatus;
  