anchor.diff:    FNodeNotifyEvents := TNodeNotifyEvents.Create(Self);
     FNodeNotifyEvents.OnBlocksChanged := OnNewAccount;
     FNodeNotifyEvents.OnNodeMessageEvent := OnNodeMessageEvent;
  +  FNodeNotifyEvents.OnKeyActivity := OnNodeKeysActivity;
     FAccountsGrid := TAccountsGrid.Create(Self);
     FAccountsGrid.DrawGrid := dgAccounts;
     FAccountsGrid.AllowMultiSelect := True;
  
positive.code:     procedure OnNetNodeServersUpdated(Sender : TObject);
      procedure OnNetBlackListUpdated(Sender : TObject);
      Procedure OnNodeMessageEvent(NetConnection : TNetConnection; MessageData : TRawBytes);
      Procedure OnSelectedAccountsGridUpdated(Sender : TObject);
      Procedure OnMiningServerNewBlockFound(Sender : TObject);
      Procedure UpdateConnectionStatus;
  
negative.code: 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;
  