добавил Игры, нужно разобраться с передачей команд в игру

forms/uGeneral.fmx

@@ -3,7 +3,7 @@ object TTW_Bot: TTTW_Bot
   Top = 0
   Caption = 'TTW_Bot'
   ClientHeight = 886
-  ClientWidth = 1003
+  ClientWidth = 968
   Position = Designed
   FormFactor.Width = 320
   FormFactor.Height = 480
@@ -15,30 +15,30 @@ object TTW_Bot: TTTW_Bot
   object V: TTabControl
     Align = Client
     Images = ImageList1
-    Size.Width = 1003.000000000000000000
+    Size.Width = 968.000000000000000000
     Size.Height = 744.000000000000000000
     Size.PlatformDefault = False
-    TabIndex = 3
+    TabIndex = 4
     TabOrder = 0
     TabPosition = PlatformDefault
     Sizes = (
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s
-      1003s
+      968s
       718s)
     object TabItem1: TTabItem
       CustomIcon = <
@@ -57,7 +57,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frSettings1: TfrSettings
         Align = Client
-        Size.Width = 1003.000000000000000000
+        Size.Width = 968.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited GroupBox3: TGroupBox
@@ -115,12 +115,12 @@ object TTW_Bot: TTTW_Bot
           inherited btnDAStart: TButton
             Images = ImageList1
             ImageIndex = 18
-            TabOrder = 38
+            TabOrder = 39
             OnClick = frSettings1btnDAStartClick
           end
           inherited btnGetDADef: TButton
             Images = ImageList1
-            TabOrder = 40
+            TabOrder = 41
           end
         end
         inherited btnOpenRomaning: TButton
@@ -168,7 +168,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frAI1: TfrAI
         Align = Client
-        Size.Width = 1003.000000000000000000
+        Size.Width = 968.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited btnGetAIDef: TButton
@@ -201,12 +201,12 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frCommands1: TfrCommands
         Align = Client
-        Size.Width = 1003.000000000000000000
+        Size.Width = 968.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited sgCommands: TStringGrid
-          Viewport.Width = 536.000000000000000000
-          Viewport.Height = 168.000000000000000000
+          Viewport.Width = 540.000000000000000000
+          Viewport.Height = 193.000000000000000000
           inherited scCommand: TStringColumn
             Size.Width = 134.000000000000000000
           end
@@ -218,53 +218,53 @@ object TTW_Bot: TTTW_Bot
           inherited frContruct1: TfrContruct
             inherited mResponse: TMemo
               Size.Width = 384.000000000000000000
-              Viewport.Width = 380.000000000000000000
-              Viewport.Height = 157.000000000000000000
+              Viewport.Width = 384.000000000000000000
+              Viewport.Height = 161.000000000000000000
             end
             inherited GroupBox7: TGroupBox
               inherited btnAddUserName: TButton
                 Images = ImageList1
                 ImageIndex = 11
-                TabOrder = 38
+                TabOrder = 37
               end
               inherited btnGetDateFollow: TButton
                 Images = ImageList1
                 ImageIndex = 15
-                TabOrder = 39
+                TabOrder = 38
               end
               inherited btnGetAgeAccaunt: TButton
                 Images = ImageList1
                 ImageIndex = 15
-                TabOrder = 40
+                TabOrder = 39
               end
               inherited btnCounterAddtoText: TButton
                 Images = ImageList1
                 ImageIndex = 23
-                TabOrder = 41
+                TabOrder = 40
               end
               inherited cbCounterName: TComboBox
-                TabOrder = 42
+                TabOrder = 41
               end
               inherited btnGPT: TButton
                 Images = ImageList1
                 ImageIndex = 19
-                TabOrder = 43
+                TabOrder = 42
               end
               inherited btnRandomUserName: TButton
                 Images = ImageList1
                 ImageIndex = 11
-                TabOrder = 44
+                TabOrder = 43
               end
               inherited btnGetChannelStat: TButton
                 Images = ImageList1
                 ImageIndex = 22
                 Size.Width = 136.000000000000000000
-                TabOrder = 45
+                TabOrder = 44
               end
               inherited btnAIPic: TButton
                 Images = ImageList1
                 ImageIndex = 5
-                TabOrder = 48
+                TabOrder = 45
               end
             end
             inherited btnAddCommand: TButton
@@ -294,20 +294,20 @@ object TTW_Bot: TTTW_Bot
             inherited btnRandomAdd: TButton
               Images = ImageList1
               ImageIndex = 0
-              TabOrder = 30
+              TabOrder = 29
             end
             inherited btnRandomDel: TButton
               Images = ImageList1
               ImageIndex = 12
-              TabOrder = 31
+              TabOrder = 30
             end
             inherited btnRmGroup: TButton
               Images = ImageList1
               ImageIndex = 4
-              TabOrder = 33
+              TabOrder = 32
             end
             inherited Label4: TLabel
-              TabOrder = 35
+              TabOrder = 33
             end
             inherited Label5: TLabel
               TabOrder = 43
@@ -326,8 +326,8 @@ object TTW_Bot: TTTW_Bot
           end
           inherited sgRandomInt: TStringGrid
             TabOrder = 35
-            Viewport.Width = 153.000000000000000000
-            Viewport.Height = 119.000000000000000000
+            Viewport.Width = 157.000000000000000000
+            Viewport.Height = 144.000000000000000000
             inherited scRIntName: TStringColumn
               Size.Width = 70.000000000000000000
             end
@@ -343,8 +343,8 @@ object TTW_Bot: TTTW_Bot
           Margins.Top = 200.000000000000000000
           inherited frsgSounds: TfrSimpleGrid
             inherited sg: TStringGrid
-              Viewport.Width = 289.000000000000000000
-              Viewport.Height = 124.000000000000000000
+              Viewport.Width = 293.000000000000000000
+              Viewport.Height = 149.000000000000000000
               inherited sgR2: TStringColumn
                 Size.Width = 170.000000000000000000
               end
@@ -372,8 +372,8 @@ object TTW_Bot: TTTW_Bot
         inherited GroupBox24: TGroupBox
           inherited frsgFiles: TfrSimpleGrid
             inherited sg: TStringGrid
-              Viewport.Width = 289.000000000000000000
-              Viewport.Height = 124.000000000000000000
+              Viewport.Width = 293.000000000000000000
+              Viewport.Height = 149.000000000000000000
               inherited sgR2: TStringColumn
                 Size.Width = 170.000000000000000000
               end
@@ -406,8 +406,8 @@ object TTW_Bot: TTTW_Bot
           TabOrder = 7
           inherited frsgNeiro: TfrSimpleGrid
             inherited sg: TStringGrid
-              Viewport.Width = 289.000000000000000000
-              Viewport.Height = 124.000000000000000000
+              Viewport.Width = 293.000000000000000000
+              Viewport.Height = 149.000000000000000000
               inherited sgR2: TStringColumn
                 Size.Width = 170.000000000000000000
               end
@@ -434,7 +434,7 @@ object TTW_Bot: TTTW_Bot
         item
         end>
       TextSettings.Trimming = None
-      IsSelected = True
+      IsSelected = False
       ImageIndex = 20
       Size.Width = 79.000000000000000000
       Size.Height = 26.000000000000000000
@@ -491,8 +491,8 @@ object TTW_Bot: TTTW_Bot
           Size.PlatformDefault = False
           inherited sgEvents: TStringGrid
             Size.Width = 721.000000000000000000
-            Viewport.Width = 717.000000000000000000
-            Viewport.Height = 186.000000000000000000
+            Viewport.Width = 721.000000000000000000
+            Viewport.Height = 211.000000000000000000
             inherited StringColumn1: TStringColumn
               Size.Width = 150.000000000000000000
             end
@@ -541,8 +541,8 @@ object TTW_Bot: TTTW_Bot
           inherited StringGrid1: TStringGrid
             Size.Width = 605.000000000000000000
             Size.Height = 153.000000000000000000
-            Viewport.Width = 585.000000000000000000
-            Viewport.Height = 128.000000000000000000
+            Viewport.Width = 605.000000000000000000
+            Viewport.Height = 153.000000000000000000
             inherited StringColumn1: TStringColumn
               Size.Width = 241.000000000000000000
             end
@@ -550,14 +550,14 @@ object TTW_Bot: TTTW_Bot
               Size.Width = 140.000000000000000000
             end
           end
-          inherited Label34: TLabel
-            TabOrder = 2
+          inherited ceCustomRevardTitle: TComboEdit
+            TabOrder = 4
           end
           inherited edtCustomRevardPrompt: TEdit
-            TabOrder = 7
+            TabOrder = 6
           end
           inherited nbCustomRevardCost: TNumberBox
-            TabOrder = 6
+            TabOrder = 5
           end
           inherited Label35: TLabel
             TabOrder = 3
@@ -568,12 +568,15 @@ object TTW_Bot: TTTW_Bot
           inherited btnAddCustomRewards: TButton
             Images = ImageList1
             ImageIndex = 0
-            TabOrder = 13
+            TabOrder = 12
           end
           inherited btnDelCustomRewards: TButton
             Images = ImageList1
             ImageIndex = 12
-            TabOrder = 16
+            TabOrder = 13
+          end
+          inherited cbUserInput: TCheckBox
+            TabOrder = 14
           end
         end
       end
@@ -583,7 +586,7 @@ object TTW_Bot: TTTW_Bot
         item
         end>
       TextSettings.Trimming = None
-      IsSelected = False
+      IsSelected = True
       ImageIndex = 10
       Size.Width = 136.000000000000000000
       Size.Height = 26.000000000000000000
@@ -595,13 +598,13 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frOBS1: TfrOBS
         Align = Top
-        Size.Width = 1003.000000000000000000
+        Size.Width = 968.000000000000000000
         Size.Height = 345.000000000000000000
         Size.PlatformDefault = False
         inherited sgWebChats: TStringGrid
-          Size.Width = 1003.000000000000000000
+          Size.Width = 968.000000000000000000
           Size.Height = 282.000000000000000000
-          Viewport.Width = 999.000000000000000000
+          Viewport.Width = 964.000000000000000000
           Viewport.Height = 257.000000000000000000
           inherited StringColumn2: TStringColumn
             Size.Width = 200.000000000000000000
@@ -618,12 +621,12 @@ object TTW_Bot: TTTW_Bot
           Anchors = [akTop, akRight]
           Images = ImageList1
           ImageIndex = 4
-          Position.X = 915.000000000000000000
+          Position.X = 880.000000000000000000
           TabOrder = 3
           OnClick = frOBS1btnDeleteeChatClick
         end
         inherited Label1: TLabel
-          TabOrder = 14
+          TabOrder = 18
         end
         inherited btnCreateOBSNotify: TButton
           Images = ImageList1
@@ -634,7 +637,12 @@ object TTW_Bot: TTTW_Bot
           Images = ImageList1
           ImageIndex = 5
           Position.X = 264.000000000000000000
-          TabOrder = 13
+          TabOrder = 17
+        end
+        inherited btnCreateOBSGame: TButton
+          Images = ImageList1
+          ImageIndex = 20
+          TabOrder = 5
         end
         object btnCreateChat: TButton
           Images = ImageList1
@@ -683,7 +691,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frNotify1: TfrNotify
         Align = Client
-        Size.Width = 1003.000000000000000000
+        Size.Width = 968.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited btnNotifyOpen: TButton
@@ -765,7 +773,7 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frAutoActions1: TfrAutoActions
         Align = Client
-        Size.Width = 1003.000000000000000000
+        Size.Width = 968.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited GroupBox20: TGroupBox
@@ -921,20 +929,20 @@ object TTW_Bot: TTTW_Bot
       ExplicitSize.cy = 26.000000000000000000
       inline frLog1: TfrLog
         Align = Client
-        Size.Width = 1003.000000000000000000
+        Size.Width = 968.000000000000000000
         Size.Height = 718.000000000000000000
         Size.PlatformDefault = False
         inherited Panel1: TPanel
-          Size.Width = 1003.000000000000000000
+          Size.Width = 968.000000000000000000
           inherited btnClear: TButton
             Images = ImageList1
             ImageIndex = 4
           end
         end
         inherited sgLog: TStringGrid
-          Size.Width = 1003.000000000000000000
+          Size.Width = 968.000000000000000000
           Size.Height = 685.000000000000000000
-          Viewport.Width = 1003.000000000000000000
+          Viewport.Width = 968.000000000000000000
           Viewport.Height = 685.000000000000000000
           inherited StringColumn2: TStringColumn
             Size.Width = 170.000000000000000000
@@ -952,7 +960,7 @@ object TTW_Bot: TTTW_Bot
   object Panel1: TPanel
     Align = Bottom
     Position.Y = 744.000000000000000000
-    Size.Width = 1003.000000000000000000
+    Size.Width = 968.000000000000000000
     Size.Height = 142.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 10
@@ -1075,7 +1083,7 @@ object TTW_Bot: TTTW_Bot
     end
     object Label1: TLabel
       Anchors = [akTop, akRight]
-      Position.X = 854.000000000000000000
+      Position.X = 819.000000000000000000
       Position.Y = 8.000000000000000000
       Text = #1054#1090#1076#1077#1083#1100#1085#1086#1077' '#1089#1087#1072#1089#1080#1073#1086':'
       TabOrder = 12
@@ -1112,7 +1120,7 @@ object TTW_Bot: TTTW_Bot
       Anchors = [akTop, akRight]
       Images = ImageList1
       ImageIndex = 11
-      Position.X = 854.000000000000000000
+      Position.X = 819.000000000000000000
       Position.Y = 33.000000000000000000
       Size.Width = 141.000000000000000000
       Size.Height = 22.000000000000000000
@@ -1125,7 +1133,7 @@ object TTW_Bot: TTTW_Bot
       Anchors = [akTop, akRight]
       Images = ImageList1
       ImageIndex = 11
-      Position.X = 854.000000000000000000
+      Position.X = 819.000000000000000000
       Position.Y = 63.000000000000000000
       Size.Width = 141.000000000000000000
       Size.Height = 22.000000000000000000
@@ -1138,7 +1146,7 @@ object TTW_Bot: TTTW_Bot
       Anchors = [akTop, akRight]
       Images = ImageList1
       ImageIndex = 11
-      Position.X = 854.000000000000000000
+      Position.X = 819.000000000000000000
       Position.Y = 93.000000000000000000
       Size.Width = 141.000000000000000000
       Size.Height = 22.000000000000000000