add popup for change account private key.

src/gui/UCTRLWallet.lfm

@@ -10,7 +10,6 @@ object CTRLWallet: TCTRLWallet
   ClientWidth = 1151
   OnCreate = FormCreate
   OnResize = FormResize
-  LCLVersion = '1.8.1.0'
   Visible = False
   object PairSplitter1: TPairSplitter
     Left = 0
@@ -170,6 +169,10 @@ object CTRLWallet: TCTRLWallet
       Caption = 'Transfer Account(s)'
       OnClick = miTransferAccountsClick
     end
+    object miChangeAccountsPrivateKey: TMenuItem
+      Caption = 'Change Account(s) Private Key'
+      OnClick = miChangeAccountsPrivateKeyClick
+    end
     object miSep1: TMenuItem
       Caption = '-'
     end

src/gui/UCTRLWallet.pas

@@ -32,6 +32,7 @@ type
     miOperationInfo: TMenuItem;
     miSendPASC: TMenuItem;
     miTransferAccounts: TMenuItem;
+    miChangeAccountsPrivateKey: TMenuItem;
     miAccountInfo: TMenuItem;
     miSep1: TMenuItem;
     miSep2: TMenuItem;
@@ -53,6 +54,7 @@ type
     procedure miOperationInfoClick(Sender: TObject);
     procedure miSendPASCClick(Sender: TObject);
     procedure miTransferAccountsClick(Sender: TObject);
+    procedure miChangeAccountsPrivateKeyClick(Sender: TObject);
   private
     FNodeNotifyEvents: TNodeNotifyEvents;
     FAccountsMode: TCTRLWalletAccountsMode;
@@ -604,6 +606,9 @@ begin
   miAccountInfo.Visible := ASelection.RowCount = 1;
   miTransferAccounts.Caption :=
     IIF(ASelection.RowCount = 1, 'Transfer Account', 'Transfer Accounts');
+  miChangeAccountsPrivateKey.Caption :=
+    IIF(ASelection.RowCount = 1, 'Change Account Private Key',
+    'Change Accounts Private Key');
   APopupMenu := mnuAccountsPopup;
 end;
 
@@ -654,6 +659,11 @@ begin
   wiz.Start(model);
 end;
 
+procedure TCTRLWallet.miChangeAccountsPrivateKeyClick(Sender: TObject);
+begin
+  raise ENotImplemented.Create('Not Implemented');
+end;
+
 procedure TCTRLWallet.OnPrepareOperationsPopupMenu(Sender: TObject;
   constref ASelection: TVisualGridSelection; out APopupMenu: TPopupMenu);
 begin