добавил обработку таймеров и сами таймеры в автоматические действия

fCommands.fmx

@@ -14,8 +14,8 @@ object frCommands: TfrCommands
     RowCount = 0
     Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
     OnCellClick = sgCommandsCellClick
-    Viewport.Width = 536.000000000000000000
-    Viewport.Height = 168.000000000000000000
+    Viewport.Width = 540.000000000000000000
+    Viewport.Height = 193.000000000000000000
     object scCommand: TStringColumn
       Header = #1050#1086#1084#1072#1085#1076#1072
       HeaderSettings.TextSettings.WordWrap = False
@@ -45,8 +45,37 @@ object frCommands: TfrCommands
       Size.Height = 417.000000000000000000
       Size.PlatformDefault = False
       inherited mResponse: TMemo
-        Viewport.Width = 388.000000000000000000
-        Viewport.Height = 157.000000000000000000
+        Viewport.Width = 392.000000000000000000
+        Viewport.Height = 161.000000000000000000
+      end
+      inherited GroupBox7: TGroupBox
+        inherited btnAddUserName: TButton
+          TabOrder = 37
+        end
+        inherited btnGetDateFollow: TButton
+          TabOrder = 38
+        end
+        inherited btnGetAgeAccaunt: TButton
+          TabOrder = 39
+        end
+        inherited btnCounterAddtoText: TButton
+          TabOrder = 40
+        end
+        inherited cbCounterName: TComboBox
+          TabOrder = 41
+        end
+        inherited btnGPT: TButton
+          TabOrder = 42
+        end
+        inherited btnRandomUserName: TButton
+          TabOrder = 43
+        end
+        inherited btnGetChannelStat: TButton
+          TabOrder = 44
+        end
+        inherited btnAIPic: TButton
+          TabOrder = 45
+        end
       end
       inherited btnAddCommand: TButton
         OnClick = frContruct1btnAddCommandClick
@@ -86,16 +115,16 @@ object frCommands: TfrCommands
         Viewport.Height = 116.000000000000000000
       end
       inherited btnRandomAdd: TButton
-        TabOrder = 35
+        TabOrder = 34
       end
       inherited btnRandomDel: TButton
-        TabOrder = 36
+        TabOrder = 35
       end
       inherited btnRmGroup: TButton
-        TabOrder = 38
+        TabOrder = 37
       end
       inherited Label4: TLabel
-        TabOrder = 40
+        TabOrder = 39
       end
     end
   end
@@ -178,8 +207,8 @@ object frCommands: TfrCommands
       RowCount = 0
       Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
       OnCellDblClick = sgRandomIntCellDblClick
-      Viewport.Width = 153.000000000000000000
-      Viewport.Height = 119.000000000000000000
+      Viewport.Width = 157.000000000000000000
+      Viewport.Height = 144.000000000000000000
       object scRIntName: TStringColumn
         Header = #1053#1072#1079#1074#1072#1085#1080#1077
         HeaderSettings.TextSettings.WordWrap = False
@@ -217,10 +246,9 @@ object frCommands: TfrCommands
       Size.PlatformDefault = False
       inherited sg: TStringGrid
         Size.Width = 293.000000000000000000
-        TabOrder = 43
         OnCellDblClick = frsgSoundssgCellDblClick
-        Viewport.Width = 289.000000000000000000
-        Viewport.Height = 124.000000000000000000
+        Viewport.Width = 293.000000000000000000
+        Viewport.Height = 149.000000000000000000
         inherited sgR2: TStringColumn
           Size.Width = 170.000000000000000000
         end
@@ -253,10 +281,9 @@ object frCommands: TfrCommands
       Size.PlatformDefault = False
       inherited sg: TStringGrid
         Size.Width = 293.000000000000000000
-        TabOrder = 43
         OnCellDblClick = frsgFilessgCellDblClick
-        Viewport.Width = 289.000000000000000000
-        Viewport.Height = 124.000000000000000000
+        Viewport.Width = 293.000000000000000000
+        Viewport.Height = 149.000000000000000000
         inherited sgR2: TStringColumn
           Size.Width = 170.000000000000000000
         end
@@ -293,10 +320,9 @@ object frCommands: TfrCommands
       Size.PlatformDefault = False
       inherited sg: TStringGrid
         Size.Width = 293.000000000000000000
-        TabOrder = 43
         OnCellDblClick = frsgNeirosgCellDblClick
-        Viewport.Width = 289.000000000000000000
-        Viewport.Height = 124.000000000000000000
+        Viewport.Width = 293.000000000000000000
+        Viewport.Height = 149.000000000000000000
         inherited sgR2: TStringColumn
           Header = #1047#1072#1087#1088#1086#1089
           Size.Width = 170.000000000000000000