сохранение records почти доделал вкладку команды, осталось лишь групповые ответы добавить

uGeneral.fmx

@@ -3,7 +3,7 @@ object TTW_Bot: TTTW_Bot
   Top = 0
   Caption = 'Form1'
   ClientHeight = 886
-  ClientWidth = 1042
+  ClientWidth = 970
   Position = Designed
   FormFactor.Width = 320
   FormFactor.Height = 480
@@ -14,30 +14,30 @@ object TTW_Bot: TTTW_Bot
   object V: TTabControl
     Align = Client
     Images = ImageList1
-    Size.Width = 1042.000000000000000000
+    Size.Width = 970.000000000000000000
     Size.Height = 744.000000000000000000
     Size.PlatformDefault = False
     TabIndex = 2
     TabOrder = 0
     TabPosition = PlatformDefault
     Sizes = (
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s
-      1042s
+      970s
       718s)
     object TabItem1: TTabItem
       CustomIcon = <
@@ -56,7 +56,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frSettings1: TfrSettings
         Align = Client
-        Size.Width = 1042.000000000000000000
+        Size.Width = 970.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited GroupBox3: TGroupBox
@@ -71,51 +71,50 @@ object TTW_Bot: TTTW_Bot
           inherited btnOpenStream: TButton
             Images = ImageList1
             ImageIndex = 17
-            TabOrder = 33
+            TabOrder = 32
           end
           inherited btnGetTokenStreamer: TButton
             Images = ImageList1
             ImageIndex = 10
-            TabOrder = 34
+            TabOrder = 33
           end
-          inherited edtBotTokenStreamer: TEdit
-            TabOrder = 35
+          inherited Label53: TLabel
+            TabOrder = 36
           end
         end
         inherited GroupBox22: TGroupBox
           inherited btnDAGetCode: TButton
             Images = ImageList1
             ImageIndex = 10
-            TabOrder = 43
           end
           inherited Label63: TLabel
-            TabOrder = 35
+            TabOrder = 34
           end
           inherited edtDAClientID: TEdit
-            TabOrder = 38
-          end
-          inherited Label64: TLabel
-            TabOrder = 36
-          end
-          inherited edtDAClientSecret: TEdit
             TabOrder = 37
           end
+          inherited Label64: TLabel
+            TabOrder = 35
+          end
+          inherited edtDAClientSecret: TEdit
+            TabOrder = 36
+          end
           inherited Label65: TLabel
-            TabOrder = 39
+            TabOrder = 38
           end
           inherited edtDARedirectURL: TEdit
-            TabOrder = 40
+            TabOrder = 39
           end
           inherited edtDACode: TEdit
-            TabOrder = 41
+            TabOrder = 40
           end
           inherited Label66: TLabel
-            TabOrder = 42
+            TabOrder = 41
           end
           inherited btnDAStart: TButton
             Images = ImageList1
             ImageIndex = 18
-            TabOrder = 44
+            TabOrder = 43
             OnClick = frSettings1btnDAStartClick
           end
           inherited btnGetDADef: TButton
@@ -168,7 +167,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frAI1: TfrAI
         Align = Client
-        Size.Width = 1042.000000000000000000
+        Size.Width = 970.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited btnGetAIDef: TButton
@@ -201,12 +200,12 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frCommands1: TfrCommands
         Align = Client
-        Size.Width = 1042.000000000000000000
+        Size.Width = 970.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited sgCommands: TStringGrid
-          Viewport.Width = 606.000000000000000000
-          Viewport.Height = 193.000000000000000000
+          Viewport.Width = 536.000000000000000000
+          Viewport.Height = 168.000000000000000000
           inherited scCommand: TStringColumn
             Size.Width = 134.000000000000000000
           end
@@ -215,84 +214,70 @@ object TTW_Bot: TTTW_Bot
           end
         end
         inherited GroupBox1: TGroupBox
-          inherited Label12: TLabel
-            TabOrder = 37
-          end
-          inherited edtCommand: TEdit
-            TabOrder = 38
-          end
-          inherited mResponse: TMemo
-            TabOrder = 39
-            Viewport.Width = 376.000000000000000000
-            Viewport.Height = 177.000000000000000000
-          end
-          inherited Label14: TLabel
-            TabOrder = 40
-          end
-          inherited GroupBox7: TGroupBox
-            TabOrder = 41
-            inherited btnAddUserName: TButton
-              Images = ImageList1
-              ImageIndex = 11
-              TabOrder = 37
+          inherited frContruct1: TfrContruct
+            inherited mResponse: TMemo
+              Size.Width = 384.000000000000000000
+              Viewport.Width = 380.000000000000000000
+              Viewport.Height = 157.000000000000000000
             end
-            inherited btnGetDateFollow: TButton
-              Images = ImageList1
-              ImageIndex = 15
-              TabOrder = 38
+            inherited GroupBox7: TGroupBox
+              inherited btnAddUserName: TButton
+                Images = ImageList1
+                ImageIndex = 11
+                TabOrder = 38
+              end
+              inherited btnGetDateFollow: TButton
+                Images = ImageList1
+                ImageIndex = 15
+                TabOrder = 39
+              end
+              inherited btnGetAgeAccaunt: TButton
+                Images = ImageList1
+                ImageIndex = 15
+                TabOrder = 40
+              end
+              inherited btnCounterAddtoText: TButton
+                Images = ImageList1
+                ImageIndex = 23
+                TabOrder = 41
+              end
+              inherited cbCounterName: TComboBox
+                TabOrder = 42
+              end
+              inherited btnGPT: TButton
+                Images = ImageList1
+                ImageIndex = 19
+                TabOrder = 43
+              end
+              inherited btnRandomUserName: TButton
+                Images = ImageList1
+                ImageIndex = 11
+                TabOrder = 44
+              end
+              inherited btnGetChannelStat: TButton
+                Images = ImageList1
+                ImageIndex = 22
+                Size.Width = 136.000000000000000000
+                TabOrder = 45
+              end
+              inherited btnAIPic: TButton
+                Images = ImageList1
+                ImageIndex = 5
+                TabOrder = 46
+              end
             end
-            inherited btnGetAgeAccaunt: TButton
-              Images = ImageList1
-              ImageIndex = 15
-              TabOrder = 39
-            end
-            inherited btnCounterAddtoText: TButton
+            inherited btnAddCommand: TButton
               Images = ImageList1
               ImageIndex = 0
-              TabOrder = 40
             end
-            inherited cbCounterName: TComboBox
-              TabOrder = 41
-            end
-            inherited btnGPT: TButton
+            inherited btnEditCommand: TButton
               Images = ImageList1
-              ImageIndex = 19
-              TabOrder = 42
+              ImageIndex = 3
             end
-            inherited btnRandomUserName: TButton
+            inherited btnRmCommand: TButton
               Images = ImageList1
-              ImageIndex = 11
-              TabOrder = 43
+              ImageIndex = 12
             end
-            inherited btnGetChannelStat: TButton
-              Images = ImageList1
-              ImageIndex = 20
-              Size.Width = 128.000000000000000000
-              TabOrder = 44
-            end
-            inherited btnAIPic: TButton
-              Images = ImageList1
-              ImageIndex = 5
-              TabOrder = 45
-            end
-          end
-          inherited btnAddCommand: TButton
-            Images = ImageList1
-            ImageIndex = 0
-            TabOrder = 42
-          end
-          inherited btnEditCommand: TButton
-            Images = ImageList1
-            ImageIndex = 3
-            TabOrder = 43
-          end
-          inherited btnRmCommand: TButton
-            Images = ImageList1
-            ImageIndex = 4
-            TabOrder = 44
-          end
-          inherited cbTextToSpeech: TCheckBox
-            TabOrder = 45
           end
         end
         inherited GroupBox9: TGroupBox
@@ -301,7 +286,7 @@ object TTW_Bot: TTTW_Bot
             Viewport.Height = 116.000000000000000000
           end
           inherited lbRandomRespons: TListBox
-            Viewport.Width = 270.000000000000000000
+            Viewport.Width = 214.000000000000000000
             Viewport.Height = 116.000000000000000000
           end
           inherited btnRandomAdd: TButton
@@ -312,25 +297,19 @@ object TTW_Bot: TTTW_Bot
           inherited btnRandomDel: TButton
             Images = ImageList1
             ImageIndex = 12
-            TabOrder = 37
           end
           inherited btnRmGroup: TButton
             Images = ImageList1
             ImageIndex = 4
-            TabOrder = 38
-          end
-          inherited Label4: TLabel
-            TabOrder = 39
           end
           inherited Label5: TLabel
-            TabOrder = 41
+            TabOrder = 42
           end
         end
         inherited GroupBox8: TGroupBox
           inherited btnRandAdd: TButton
             Images = ImageList1
             ImageIndex = 0
-            TabOrder = 32
             OnClick = frCommands1btnRandAddClick
           end
           inherited btnRandDel: TButton
@@ -339,8 +318,8 @@ object TTW_Bot: TTTW_Bot
           end
           inherited sgRandomInt: TStringGrid
             TabOrder = 35
-            Viewport.Width = 157.000000000000000000
-            Viewport.Height = 144.000000000000000000
+            Viewport.Width = 153.000000000000000000
+            Viewport.Height = 119.000000000000000000
             inherited scRIntName: TStringColumn
               Size.Width = 70.000000000000000000
             end
@@ -353,74 +332,61 @@ object TTW_Bot: TTTW_Bot
           end
         end
         inherited GroupBox11: TGroupBox
-          inherited btnSoundAdd: TButton
-            Images = ImageList1
-            ImageIndex = 0
-            TabOrder = 37
-          end
-          inherited btnSoundDel: TButton
-            Images = ImageList1
-            ImageIndex = 12
-            TabOrder = 38
-          end
-          inherited edtSoundName: TEdit
-            TabOrder = 39
-          end
-          inherited edtSoundFileName: TEdit
-            TabOrder = 40
-          end
-          inherited btnSoundOpen: TButton
-            Images = ImageList1
-            ImageIndex = 14
-            TabOrder = 41
-            Text = ''
-          end
-          inherited tbSoundVolume: TTrackBar
-            TabOrder = 42
-          end
-          inherited btnSoundTest: TButton
-            Images = ImageList1
-            ImageIndex = 25
-            TabOrder = 43
-          end
-          inherited sgSAFiles: TStringGrid
-            TabOrder = 44
-            Viewport.Width = 345.000000000000000000
-            Viewport.Height = 149.000000000000000000
-            inherited sgSAFile: TStringColumn
-              Size.Width = 220.000000000000000000
+          Margins.Top = 200.000000000000000000
+          inherited frsgSounds: TfrSimpleGrid
+            inherited sg: TStringGrid
+              Viewport.Width = 289.000000000000000000
+              Viewport.Height = 124.000000000000000000
+              inherited sgR2: TStringColumn
+                Size.Width = 170.000000000000000000
+              end
+            end
+            inherited btnOpen: TButton
+              Images = ImageList1
+              ImageIndex = 14
+              Text = ''
+            end
+            inherited btnAdd: TButton
+              Images = ImageList1
+              ImageIndex = 0
+            end
+            inherited btnDel: TButton
+              Images = ImageList1
+              ImageIndex = 12
+            end
+            inherited btnEdt: TButton
+              Images = ImageList1
+              ImageIndex = 3
+              TabOrder = 45
             end
           end
         end
         inherited GroupBox24: TGroupBox
-          inherited btnTextAdd: TButton
-            Images = ImageList1
-            ImageIndex = 0
-            TabOrder = 37
-          end
-          inherited btnTextDel: TButton
-            Images = ImageList1
-            ImageIndex = 12
-            TabOrder = 38
-          end
-          inherited edtTextName: TEdit
-            TabOrder = 39
-          end
-          inherited edtTextFileName: TEdit
-            TabOrder = 40
-          end
-          inherited btnTextOpen: TButton
-            Images = ImageList1
-            ImageIndex = 14
-            TabOrder = 41
-            Text = ''
-          end
-          inherited sgTFiles: TStringGrid
-            TabOrder = 44
-            Viewport.Width = 297.000000000000000000
-            Viewport.Height = 149.000000000000000000
-            inherited scTFileFile: TStringColumn
-              Size.Width = 170.000000000000000000
+          inherited frsgFiles: TfrSimpleGrid
+            inherited sg: TStringGrid
+              Viewport.Width = 289.000000000000000000
+              Viewport.Height = 124.000000000000000000
+              inherited sgR2: TStringColumn
+                Size.Width = 170.000000000000000000
+              end
+            end
+            inherited btnOpen: TButton
+              Images = ImageList1
+              ImageIndex = 14
+              Text = ''
+            end
+            inherited btnAdd: TButton
+              Images = ImageList1
+              ImageIndex = 0
+            end
+            inherited btnDel: TButton
+              Images = ImageList1
+              ImageIndex = 12
+            end
+            inherited btnEdt: TButton
+              Images = ImageList1
+              ImageIndex = 3
+              TabOrder = 45
             end
           end
         end
@@ -430,34 +396,27 @@ object TTW_Bot: TTTW_Bot
         end
         inherited GroupBox2: TGroupBox
           TabOrder = 7
-          inherited sgAIGen: TStringGrid
-            TabOrder = 37
-            Viewport.Width = 305.000000000000000000
-            Viewport.Height = 149.000000000000000000
-            inherited StringColumn2: TStringColumn
-              Size.Width = 180.000000000000000000
+          inherited frsgNeiro: TfrSimpleGrid
+            inherited sg: TStringGrid
+              Viewport.Width = 289.000000000000000000
+              Viewport.Height = 124.000000000000000000
+              inherited sgR2: TStringColumn
+                Size.Width = 170.000000000000000000
+              end
+            end
+            inherited btnAdd: TButton
+              Images = ImageList1
+              ImageIndex = 0
+            end
+            inherited btnDel: TButton
+              Images = ImageList1
+              ImageIndex = 12
+            end
+            inherited btnEdt: TButton
+              Images = ImageList1
+              ImageIndex = 3
+              TabOrder = 45
             end
-          end
-          inherited edtAIGenName: TEdit
-            TabOrder = 38
-          end
-          inherited edtAIGenRequest: TEdit
-            TabOrder = 39
-          end
-          inherited btnAIGenAdd: TButton
-            Images = ImageList1
-            ImageIndex = 0
-            TabOrder = 40
-          end
-          inherited btnAIGenDel: TButton
-            Images = ImageList1
-            ImageIndex = 12
-            TabOrder = 41
-          end
-          inherited btnAIGetTextUser: TButton
-            Images = ImageList1
-            ImageIndex = 11
-            TabOrder = 42
           end
         end
       end
@@ -495,13 +454,13 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frOBS1: TfrOBS
         Align = Top
-        Size.Width = 1042.000000000000000000
+        Size.Width = 970.000000000000000000
         Size.Height = 345.000000000000000000
         Size.PlatformDefault = False
         inherited sgWebChats: TStringGrid
-          Size.Width = 1042.000000000000000000
+          Size.Width = 970.000000000000000000
           Size.Height = 282.000000000000000000
-          Viewport.Width = 1042.000000000000000000
+          Viewport.Width = 970.000000000000000000
           Viewport.Height = 282.000000000000000000
           inherited StringColumn2: TStringColumn
             Size.Width = 200.000000000000000000
@@ -516,26 +475,14 @@ object TTW_Bot: TTTW_Bot
           OnClick = frChatOBS1btnCreateChatClick
         end
         inherited btnDeleteeChat: TButton
+          Anchors = [akTop, akRight]
           Images = ImageList1
           ImageIndex = 4
-          Position.X = 954.000000000000000000
+          Position.X = 882.000000000000000000
           TabOrder = 3
         end
         inherited Label1: TLabel
-          TabOrder = 6
-        end
-        object btnCreateChat: TButton [4]
-          Images = ImageList1
-          ImageIndex = 5
-          Position.X = 406.000000000000000000
-          Position.Y = -80.000000000000000000
-          Size.Width = 153.000000000000000000
-          Size.Height = 22.000000000000000000
-          Size.PlatformDefault = False
-          TabOrder = 1
-          Text = #1057#1086#1079#1076#1072#1090#1100' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
-          TextSettings.Trimming = None
-          OnClick = frChatOBS1btnCreateChatClick
+          TabOrder = 7
         end
         inherited btnCreateOBSNotify: TButton
           Images = ImageList1
@@ -549,6 +496,19 @@ object TTW_Bot: TTTW_Bot
           Position.X = 264.000000000000000000
           OnClick = frOBS1btnCreateOBSKandinskyClick
         end
+        object btnCreateChat: TButton
+          Images = ImageList1
+          ImageIndex = 5
+          Position.X = 406.000000000000000000
+          Position.Y = -80.000000000000000000
+          Size.Width = 153.000000000000000000
+          Size.Height = 22.000000000000000000
+          Size.PlatformDefault = False
+          TabOrder = 1
+          Text = #1057#1086#1079#1076#1072#1090#1100' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
+          TextSettings.Trimming = None
+          OnClick = frChatOBS1btnCreateChatClick
+        end
       end
     end
     object TabItem6: TTabItem
@@ -568,7 +528,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frNotify1: TfrNotify
         Align = Client
-        Size.Width = 1042.000000000000000000
+        Size.Width = 970.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited btnNotifyOpen: TButton
@@ -649,7 +609,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frAutoActions1: TfrAutoActions
         Align = Client
-        Size.Width = 1042.000000000000000000
+        Size.Width = 970.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited GroupBox20: TGroupBox
@@ -768,20 +728,20 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frLog1: TfrLog
         Align = Client
-        Size.Width = 1042.000000000000000000
+        Size.Width = 970.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited Panel1: TPanel
-          Size.Width = 1042.000000000000000000
+          Size.Width = 970.000000000000000000
           inherited btnClear: TButton
             Images = ImageList1
             ImageIndex = 4
           end
         end
         inherited sgLog: TStringGrid
-          Size.Width = 1042.000000000000000000
+          Size.Width = 970.000000000000000000
           Size.Height = 685.000000000000000000
-          Viewport.Width = 1042.000000000000000000
+          Viewport.Width = 970.000000000000000000
           Viewport.Height = 685.000000000000000000
           inherited StringColumn2: TStringColumn
             Size.Width = 170.000000000000000000
@@ -799,7 +759,7 @@ object TTW_Bot: TTTW_Bot
   object Panel1: TPanel
     Align = Bottom
     Position.Y = 744.000000000000000000
-    Size.Width = 1042.000000000000000000
+    Size.Width = 970.000000000000000000
     Size.Height = 142.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 10