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

uCreateNotify.fmx

@@ -1,7 +1,7 @@
 object fCreateNotify: TfCreateNotify
   Left = 0
   Top = 0
-  Caption = 'Form2'
+  Caption = #1056#1077#1076#1072#1082#1090#1086#1088' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1103
   ClientHeight = 383
   ClientWidth = 813
   FormFactor.Width = 320
@@ -146,7 +146,7 @@ object fCreateNotify: TfCreateNotify
       Position.X = 8.000000000000000000
       Position.Y = 135.000000000000000000
       Text = #1057#1086#1073#1099#1090#1080#1077
-      TabOrder = 51
+      TabOrder = 42
     end
     object cbEventsType: TComboBox
       Items.Strings = (
@@ -160,22 +160,25 @@ object fCreateNotify: TfCreateNotify
       Size.Width = 192.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
-      TabOrder = 52
+      TabOrder = 43
+      OnChange = cbEventsTypeChange
     end
     object Label3: TLabel
       Position.X = 8.000000000000000000
       Position.Y = 190.000000000000000000
       Text = #1059#1089#1083#1086#1074#1080#1077' '#1089#1091#1084#1084#1099
-      TabOrder = 53
+      Visible = False
+      TabOrder = 44
     end
     object edtIF: TEdit
       Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 54
+      TabOrder = 45
       Position.X = 8.000000000000000000
       Position.Y = 215.000000000000000000
       Size.Width = 192.000000000000000000
       Size.Height = 22.000000000000000000
       Size.PlatformDefault = False
+      Visible = False
     end
   end
   object btnCreateEvent: TButton
@@ -224,8 +227,11 @@ object fCreateNotify: TfCreateNotify
       Size.Width = 241.000000000000000000
       Size.Height = 115.000000000000000000
       Size.PlatformDefault = False
-      inherited Label41: TLabel
-        TabOrder = 6
+      inherited ccbFontColor: TColorComboBox
+        TabOrder = 36
+      end
+      inherited Label49: TLabel
+        TabOrder = 35
       end
       inherited Label46: TLabel
         TabOrder = 39
@@ -249,8 +255,11 @@ object fCreateNotify: TfCreateNotify
       Size.Width = 241.000000000000000000
       Size.Height = 115.000000000000000000
       Size.PlatformDefault = False
-      inherited Label41: TLabel
-        TabOrder = 6
+      inherited ccbFontColor: TColorComboBox
+        TabOrder = 36
+      end
+      inherited Label49: TLabel
+        TabOrder = 35
       end
       inherited Label46: TLabel
         TabOrder = 38