anchor.diff:      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;
  
positive.code:   if FMessagesUnreadCount>1 then lblReceivedMessages.Caption := Format('You have received %d messages',[FMessagesUnreadCount])
    else lblReceivedMessages.Caption := 'You have received 1 message';
    lblReceivedMessages.Visible := true;
  end;
  
  procedure TFRMWallet.OnReceivedHelloMessage(Sender: TObject);
  
negative.code:       end else begin
          s := wk.Name;
        end;
        if Not Assigned(wk.PrivateKey) then begin
          if wk.CryptedKey<>'' then s:=s+' (Encrypted, need password)';
          s:=s+' (* without key)';
        end;
        cbMyPrivateKeys.Items.AddObject(s,TObject(i));
      end;
      cbMyPrivateKeys.Sorted := true;
  