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

uCreateChat.fmx

@@ -24,28 +24,34 @@ object fCreateChat: TfCreateChat
       Size.Height = 251.000000000000000000
       Size.PlatformDefault = False
       inherited ccbStyleBorderColor: TColorComboBox
-        TabOrder = 35
-      end
-      inherited cpStyleBlockColor: TColorPanel
-        TabOrder = 7
+        TabOrder = 33
       end
       inherited Label40: TLabel
         TabOrder = 8
       end
       inherited Label42: TLabel
-        TabOrder = 36
+        TabOrder = 35
       end
       inherited Label44: TLabel
-        TabOrder = 39
+        TabOrder = 38
       end
       inherited Label48: TLabel
-        TabOrder = 41
+        TabOrder = 40
+      end
+      inherited sbStyleBlockBorderSize: TSpinBox
+        TabOrder = 37
       end
       inherited sbStyleBlockPadding: TSpinBox
         TabOrder = 46
       end
+      inherited Label1: TLabel
+        TabOrder = 34
+      end
       inherited ccbBColor: TColorComboBox
-        OnChange = nil
+        TabOrder = 36
+      end
+      inherited btnChangeBGColor: TButton
+        TabOrder = 39
       end
     end
   end
@@ -63,21 +69,8 @@ object fCreateChat: TfCreateChat
       Size.Width = 240.000000000000000000
       Size.Height = 125.000000000000000000
       Size.PlatformDefault = False
-      inherited Label41: TLabel
-        TabOrder = 8
-      end
-      inherited sbFontSize: TSpinBox
-        OnChange = nil
-      end
-      inherited ccbFontColor: TColorComboBox
-        TabOrder = 38
-        OnChange = nil
-      end
-      inherited Label49: TLabel
-        TabOrder = 37
-      end
-      inherited cbFontStyleDefault: TComboBox
-        OnChange = nil
+      inherited Label46: TLabel
+        TabOrder = 39
       end
     end
   end
@@ -141,7 +134,7 @@ object fCreateChat: TfCreateChat
       Size.Width = 112.000000000000000000
       Size.Height = 19.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 38
+      TabOrder = 37
       Text = #1042#1077#1095#1085#1086
     end
     object sbWebServerPort: TSpinBox
@@ -180,5 +173,6 @@ object fCreateChat: TfCreateChat
     TabOrder = 4
     Text = #1057#1086#1079#1076#1072#1090#1100' '#1095#1072#1090
     TextSettings.Trimming = None
+    OnClick = btnCreateWebChatClick
   end
 end