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

uCreateChat.fmx

@@ -1,7 +1,7 @@
 object fCreateChat: TfCreateChat
   Left = 0
   Top = 0
-  Caption = 'Form2'
+  Caption = #1056#1077#1076#1072#1082#1090#1086#1088' '#1095#1072#1090#1086#1074
   ClientHeight = 287
   ClientWidth = 810
   FormFactor.Width = 320
@@ -25,7 +25,7 @@ object fCreateChat: TfCreateChat
       Size.Height = 251.000000000000000000
       Size.PlatformDefault = False
       inherited ccbStyleBorderColor: TColorComboBox
-        TabOrder = 32
+        TabOrder = 31
       end
       inherited Label40: TLabel
         TabOrder = 8
@@ -42,9 +42,6 @@ object fCreateChat: TfCreateChat
       inherited sbStyleBlockBorderSize: TSpinBox
         TabOrder = 37
       end
-      inherited sbStyleBlockPadding: TSpinBox
-        TabOrder = 45
-      end
       inherited Label1: TLabel
         TabOrder = 34
       end
@@ -73,6 +70,12 @@ object fCreateChat: TfCreateChat
       inherited Label41: TLabel
         TabOrder = 6
       end
+      inherited ccbFontColor: TColorComboBox
+        TabOrder = 36
+      end
+      inherited Label49: TLabel
+        TabOrder = 35
+      end
       inherited Label46: TLabel
         TabOrder = 39
       end