Working on creating additional panel for edit mode. Have an issue with

ComponentCount of  TPanel

src/forms/untdisplayquotes.lfm

@@ -1,7 +1,7 @@
 object frmDisplayQuotes: TfrmDisplayQuotes
-  Left = 555
+  Left = 717
   Height = 300
-  Top = 296
+  Top = 190
   Width = 720
   BorderIcons = [biSystemMenu, biMinimize]
   Caption = 'Display Quotes'
@@ -64,7 +64,7 @@ object frmDisplayQuotes: TfrmDisplayQuotes
       TabOrder = 0
     end
     object pnlNavigation: TPanel
-      Left = 553
+      Left = 552
       Height = 23
       Top = 0
       Width = 167
@@ -74,9 +74,9 @@ object frmDisplayQuotes: TfrmDisplayQuotes
       ClientWidth = 167
       TabOrder = 1
       object btnReloadQuotes: TSpeedButton
-        Left = 3
+        Left = 2
         Height = 20
-        Top = 0
+        Top = 1
         Width = 20
         Action = acReloadQuotes
         Anchors = [akTop, akRight]
@@ -417,6 +417,66 @@ object frmDisplayQuotes: TfrmDisplayQuotes
         ParentShowHint = False
       end
     end
+    object btnMode: TSpeedButton
+      Left = 512
+      Height = 22
+      Top = 1
+      Width = 23
+      Action = acToggleModes
+      AllowAllUp = True
+      Anchors = [akTop, akRight]
+      Glyph.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF005252521FFFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF0053535328555555FC57575723FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00888888728888
+        88F2888888FF888888FF888888FF626262FF666666E3888888A6888888A68888
+        88A6888888A6888888A6888888A6888888A68888889E8888884A888888F2C5C3
+        C3FFCDCBCBFFCDCBCBFFCDCBCBFFAFADADFF595959FED4D4D4AEE7E7E7A6E7E7
+        E7A6E7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6DCDCDCA68888889E888888FFD3D1
+        D1FFD3D1D1FFD3D1D1FFD3D1D1FFD3D1D1FF6B6B6BFF8D8D8DDAE7E7E7A6E7E7
+        E7A6E7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6888888A6888888FFD9D7
+        D7FF555555FFD9D7D7FFD9D7D7FFD9D7D7FF5D5D5DFF5D5D5DFDDEDEDEAA8888
+        88FFE7E7E7A6AFAFAFD1A7A7A7D9ACACACD4E7E7E7A6888888A6888888FFE0DE
+        DEFF555555FF555555FFE0DEDEFFE0DEDEFF555555FF636363FF979797D08888
+        88FFE7E7E7A6909090F4B0B0B0D0A4A4A4DCE7E7E7A6888888A6888888FFE6E4
+        E4FF555555FFE6E4E4FFE6E4E4FFE6E4E4FF555555FFA4A3A3FF626262FB8787
+        87FFE7E7E7A6B0B0B0D1A6A6A6DAB3B3B3CEE7E7E7A6888888A6888888FFEBEA
+        EAFF555555FF555555FF555555FFEBEAEAFF7E7E7EFFE5E4E4FF5D5D5DFF7575
+        75FFE7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6888888A6888888FFF0F0
+        F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0F0FF9C9C9CFF6868
+        68F8E7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6888888A6888888F2E6E6
+        E6FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFF2F2F2FFE4E4E4FF5959
+        59FFAFAFAFBFE7E7E7A6E7E7E7A6E7E7E7A6DCDCDCA68888889E888888728888
+        88F2888888FF888888FF888888FF888888FF888888FF888888FF888888FF6A6A
+        6AFF5F5F5FEF888888A6888888A6888888A68888889E8888884AFFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005757
+        5723555555FC53535328FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF005252521FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+      }
+      GroupIndex = -2
+      Layout = blGlyphTop
+      ShowCaption = False
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object pnlEdit: TPanel
+      Left = 552
+      Height = 23
+      Top = 25
+      Width = 167
+      Anchors = [akTop, akRight]
+      BevelOuter = bvLowered
+      TabOrder = 2
+      Visible = False
+    end
   end
   inline frmSearchDialog1: TfrmSearchDialog
     Top = 267
@@ -431,81 +491,9 @@ object frmDisplayQuotes: TfrmDisplayQuotes
       TabOrder = 4
     end
     inherited btnPrev: TBitBtn
-      Glyph.Data = {
-        36040000424D3604000000000000360000002800000010000000100000000100
-        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF0000820015068E039300000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000480
-        003A1E9A1AF22CA529FF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000480026F1F9D
-        1EFB07AD07FE18AB16FF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00008000010C8209A71B9719FC01A4
-        01FF00BA00FF15B413FF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00007100140F7D0DD4118210FB008F00FF00A5
-        00FF00BB00FF11B00FFF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF000561003610700EED096809FB007500FF008A00FF009D
-        00FF00AE00FF0DA40CFF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00035E00550E5C0DF8034703FE015B01FF026F02FF007F00FF0090
-        00FF009D00FF0A9609FF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00005900521F671FF9397639FE337E33FF2F872FFF2D922DFF2799
-        27FF239E23FF1C931CFF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF0000520032196618EB468746FC479447FF439943FF3E9D
-        3EFF3A9F3AFF248D24FF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00004400120F5C0FCB4F934FFC5BA45BFF57A5
-        57FF52A552FF2D892DFF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000800001075307994F8E4FFC70B3
-        70FF6BB16BFF3A853AFF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00004E00604381
-        43F983C083FE458545FF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000048
-        0032327032ED4A844AFF00500009FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF0000420012004E008700000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
-      }
       TabOrder = 1
     end
     inherited btnNext: TBitBtn
-      Glyph.Data = {
-        36040000424D3604000000000000360000002800000010000000100000000100
-        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF0006890351078A0366FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00159611BE2EA92CFF118F0CAC00800001FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF0013920FBB0BBC0BFF17B116FB159112D800770015FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF000F8D0CB809D509FF00C500FF0CB00CFC169214F00575
-        0038FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF000E880BB508D008FF00C400FF00B000FF059B05FE027E
-        00F90272006BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF000C8209B106BB06FF00B400FF00A600FF009400FF007F
-        00FF127A11FB086F06A200800001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00077C06AF04A604FF00A100FF009700FF018801FF0378
-        03FF006300FF0A5C0AFB086608CC00000001FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00057404AC2AA52AFF25A325FF2AA02AFF2E992EFF3190
-        31FF368836FF327A32FC0D630CCB00000001FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00036C02A93EA43EFF3CA23CFF40A240FF459E45FF499A
-        49FF327F32FB0559059900800001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00006200A655A855FF55A955FF59A959FF5CA75CFE2D78
-        2DF900500060FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00005700A66DB36DFF6DB46DFF6BAF6BFD236B23EB0049
-        0031FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00004E00A685C185FF70AC70FD195F19CD00440012FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00004E00A67BAD7BFE0D570D9B00800001FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00004F004A0852085CFFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
-      }
       TabOrder = 2
     end
     inherited lblNotFound: TLabel
@@ -604,11 +592,19 @@ object frmDisplayQuotes: TfrmDisplayQuotes
       AutoCheck = True
       Caption = 'Use Tray'
     end
+    object acToggleModes: TAction
+      Caption = 'Nav/Edit mode'
+      GroupIndex = -2
+      Hint = 'Toggle between Nav/Edit modes'
+      ImageIndex = 10
+      OnExecute = acToggleModesExecute
+      ShortCut = 4173
+    end
   end
   object ImageList: TImageList
     left = 224
     Bitmap = {
-      4C690A0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      4C690B0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000420012004E00870000
@@ -928,6 +924,38 @@ object frmDisplayQuotes: TfrmDisplayQuotes
       75FF787878FF787878FF787878FF787878FF787878FF787878FF1A191BFF1919
       1BFF1D1C1FFF1F1F21EFFFFFFF004864725A36546523FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005252521FFFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0057575723555555FC53535328FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0088888872888888F2888888FF888888FF8888
+      88FF888888FF888888FF888888FF888888FF6A6A6AFF5F5F5FEF888888A68888
+      88A6888888A68888889E8888884A888888F2E6E6E6FFF2F2F2FFF2F2F2FFF2F2
+      F2FFF2F2F2FFF2F2F2FFF2F2F2FFE4E4E4FF595959FFAFAFAFBFE7E7E7A6E7E7
+      E7A6E7E7E7A6DCDCDCA68888889E888888FFF0F0F0FFF0F0F0FFF0F0F0FFF0F0
+      F0FFF0F0F0FFF0F0F0FFF0F0F0FF9C9C9CFF686868F8E7E7E7A6E7E7E7A6E7E7
+      E7A6E7E7E7A6E7E7E7A6888888A6888888FFEBEAEAFF555555FF555555FF5555
+      55FFEBEAEAFF7E7E7EFFE5E4E4FF5D5D5DFF757575FFE7E7E7A6E7E7E7A6E7E7
+      E7A6E7E7E7A6E7E7E7A6888888A6888888FFE6E4E4FF555555FFE6E4E4FFE6E4
+      E4FFE6E4E4FF555555FFA4A3A3FF626262FB878787FFE7E7E7A6B0B0B0D1A6A6
+      A6DAB3B3B3CEE7E7E7A6888888A6888888FFE0DEDEFF555555FF555555FFE0DE
+      DEFFE0DEDEFF555555FF636363FF979797D0888888FFE7E7E7A6909090F4B0B0
+      B0D0A4A4A4DCE7E7E7A6888888A6888888FFD9D7D7FF555555FFD9D7D7FFD9D7
+      D7FFD9D7D7FF5D5D5DFF5D5D5DFDDEDEDEAA888888FFE7E7E7A6AFAFAFD1A7A7
+      A7D9ACACACD4E7E7E7A6888888A6888888FFD3D1D1FFD3D1D1FFD3D1D1FFD3D1
+      D1FFD3D1D1FF6B6B6BFF8D8D8DDAE7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6E7E7
+      E7A6E7E7E7A6E7E7E7A6888888A6888888F2C5C3C3FFCDCBCBFFCDCBCBFFCDCB
+      CBFFAFADADFF595959FED4D4D4AEE7E7E7A6E7E7E7A6E7E7E7A6E7E7E7A6E7E7
+      E7A6E7E7E7A6DCDCDCA68888889E88888872888888F2888888FF888888FF8888
+      88FF626262FF666666E3888888A6888888A6888888A6888888A6888888A68888
+      88A6888888A68888889E8888884AFFFFFF00FFFFFF00FFFFFF00FFFFFF005353
+      5328555555FC57575723FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF005252521FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00
     }
   end

src/forms/untdisplayquotes.pas

@@ -48,6 +48,7 @@   TfrmDisplayQuotes = class(TForm)
     acNotifyQuote: TAction;
     acQuit: TAction;
     acDisplayTooltip: TAction;
+    acToggleModes: TAction;
     acUseTray: TAction;
     ActionList: TActionList;
     btnCopy: TSpeedButton;
@@ -75,15 +76,18 @@   TfrmDisplayQuotes = class(TForm)
     mnuFirstQuote: TMenuItem;
     mnusep: TMenuItem;
     mmoQuote: TMemo;
+    pnlEdit: TPanel;
     pnlNavigation: TPanel;
     pnlTop: TPanel;
     ppmnuTray: TPopupMenu;
+    btnMode: TSpeedButton;
     Tray: TTrayIcon;
     procedure acCopyToClipboardExecute(Sender: TObject);
     procedure acDisplayTooltipExecute(Sender: TObject);
     procedure acFindQuoteExecute(Sender: TObject);
     procedure acNextQuoteExecute(Sender: TObject);
     procedure acQuitExecute(Sender: TObject);
+    procedure acToggleModesExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
@@ -162,6 +166,8 @@ procedure TfrmDisplayQuotes.LoadConfig;
       Tray.Icon                := Application.Icon;
       acDisplayTooltip.Checked := ProgramSettings.DisplayToolTip;
     end;
+
+  //pnlEdit.Top  := pnlNavigation.Top;
 end;
 
 procedure TfrmDisplayQuotes.acCopyToClipboardExecute(Sender: TObject);
@@ -209,6 +215,54 @@ procedure TfrmDisplayQuotes.acQuitExecute(Sender: TObject);
   Close;
 end;
 
+procedure TfrmDisplayQuotes.acToggleModesExecute(Sender: TObject);
+var
+  vispan, hidpan : TPanel;
+  i              : integer;
+begin
+  if acToggleModes.Checked then
+    begin
+      //pnlNavigation.Visible := True;
+      //pnlEdit.Visible       := False;
+      acToggleModes.Checked := False;
+      vispan                := pnlEdit;
+      hidpan                := pnlNavigation;
+    end
+  else begin
+    //pnlNavigation.Visible := False;
+    //pnlEdit.Visible       := True;
+    acToggleModes.Checked := True;
+    vispan                := pnlNavigation;
+    hidpan                := pnlEdit;
+  end;
+
+  ShowMessage('vispan.ComponentCount: '+ IntToStr(vispan.ComponentCount) +
+              ' hidpan.ComponentCount: ' + IntToStr(hidpan.ComponentCount));
+  ShowMessage('nav.componentcount: ' + IntToStr(pnlNavigation.ComponentCount) +
+              ' edt.componentcount: ' + IntToStr(pnlEdit.ComponentCount));
+  for i := 0 to vispan.ComponentCount -1 do
+    begin
+      if vispan.Components[i] is TSpeedButton then
+        begin
+          if Assigned(TSpeedButton(vispan.Components[i]).Action) then
+            TAction(TSpeedButton(vispan.Components[i]).Action).Enabled := True
+          else
+            TSpeedButton(vispan.Components[i]).Enabled := True;
+        end;
+    end;
+
+  for i := 0 to hidpan.ComponentCount -1 do
+    begin
+      if hidpan.Components[i] is TSpeedButton then
+        begin
+          if Assigned(TSpeedButton(hidpan.Components[i]).Action) then
+            TAction(TSpeedButton(hidpan.Components[i]).Action).Enabled := False
+          else
+            TSpeedButton(hidpan.Components[i]).Enabled := False;
+        end;
+    end;
+end;
+
 procedure TfrmDisplayQuotes.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
   ProgramSettings.LastQuote   := QuoteNum;