anchor.diff:        end else begin
           s := wk.Name;
         end;
  -      if Not Assigned(wk.PrivateKey) then s := s + '(*)';
  +      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;
  
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:   FNodeNotifyEvents := TNodeNotifyEvents.Create(Self);
    FNodeNotifyEvents.OnBlocksChanged := OnNewAccount;
    FNodeNotifyEvents.OnNodeMessageEvent := OnNodeMessageEvent;
    FNodeNotifyEvents.OnKeyActivity := OnNodeKeysActivity;
    FAccountsGrid := TAccountsGrid.Create(Self);
    FAccountsGrid.DrawGrid := dgAccounts;
    FAccountsGrid.AllowMultiSelect := True;
  