Добавил интеграции с ОБС

fCommands.fmx

@@ -48,35 +48,6 @@ object frCommands: TfrCommands
         Viewport.Width = 388.000000000000000000
         Viewport.Height = 157.000000000000000000
       end
-      inherited GroupBox7: TGroupBox
-        inherited btnAddUserName: TButton
-          TabOrder = 38
-        end
-        inherited btnGetDateFollow: TButton
-          TabOrder = 39
-        end
-        inherited btnGetAgeAccaunt: TButton
-          TabOrder = 40
-        end
-        inherited btnCounterAddtoText: TButton
-          TabOrder = 41
-        end
-        inherited cbCounterName: TComboBox
-          TabOrder = 42
-        end
-        inherited btnGPT: TButton
-          TabOrder = 43
-        end
-        inherited btnRandomUserName: TButton
-          TabOrder = 44
-        end
-        inherited btnGetChannelStat: TButton
-          TabOrder = 45
-        end
-        inherited btnAIPic: TButton
-          TabOrder = 46
-        end
-      end
       inherited btnAddCommand: TButton
         OnClick = frContruct1btnAddCommandClick
       end
@@ -115,13 +86,16 @@ object frCommands: TfrCommands
         Viewport.Height = 116.000000000000000000
       end
       inherited btnRandomAdd: TButton
-        TabOrder = 37
+        TabOrder = 35
       end
       inherited btnRandomDel: TButton
-        TabOrder = 38
+        TabOrder = 36
       end
       inherited btnRmGroup: TButton
-        TabOrder = 39
+        TabOrder = 38
+      end
+      inherited Label4: TLabel
+        TabOrder = 40
       end
     end
   end
@@ -176,7 +150,7 @@ object frCommands: TfrCommands
     object btnRandAdd: TButton
       Position.X = 9.000000000000000000
       Position.Y = 205.000000000000000000
-      TabOrder = 32
+      TabOrder = 31
       Text = #1044#1086#1073#1072#1074#1080#1090#1100
       TextSettings.Trimming = None
       OnClick = btnRandAddClick
@@ -243,7 +217,7 @@ object frCommands: TfrCommands
       Size.PlatformDefault = False
       inherited sg: TStringGrid
         Size.Width = 293.000000000000000000
-        TabOrder = 44
+        TabOrder = 43
         OnCellDblClick = frsgSoundssgCellDblClick
         Viewport.Width = 289.000000000000000000
         Viewport.Height = 124.000000000000000000
@@ -279,7 +253,7 @@ object frCommands: TfrCommands
       Size.PlatformDefault = False
       inherited sg: TStringGrid
         Size.Width = 293.000000000000000000
-        TabOrder = 44
+        TabOrder = 43
         OnCellDblClick = frsgFilessgCellDblClick
         Viewport.Width = 289.000000000000000000
         Viewport.Height = 124.000000000000000000
@@ -319,7 +293,7 @@ object frCommands: TfrCommands
       Size.PlatformDefault = False
       inherited sg: TStringGrid
         Size.Width = 293.000000000000000000
-        TabOrder = 44
+        TabOrder = 43
         OnCellDblClick = frsgNeirosgCellDblClick
         Viewport.Width = 289.000000000000000000
         Viewport.Height = 124.000000000000000000