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

fLog.fmx

@@ -14,6 +14,7 @@ object frLog: TfrLog
       TabOrder = 0
       Text = #1054#1095#1080#1089#1090#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnClearClick
     end
     object chkWARNING: TCheckBox
       Position.X = 160.000000000000000000
@@ -23,6 +24,7 @@ object frLog: TfrLog
       Size.PlatformDefault = False
       TabOrder = 1
       Text = #1055#1088#1077#1076#1091#1087#1088#1077#1078#1076#1077#1085#1080#1103
+      OnChange = chkWARNINGChange
     end
     object chkERROR: TCheckBox
       Position.X = 289.000000000000000000
@@ -32,12 +34,14 @@ object frLog: TfrLog
       Size.PlatformDefault = False
       TabOrder = 2
       Text = #1054#1096#1080#1073#1082#1080
+      OnChange = chkWARNINGChange
     end
     object chkDEBUG: TCheckBox
       Position.X = 369.000000000000000000
       Position.Y = 8.000000000000000000
       TabOrder = 3
       Text = #1054#1090#1083#1072#1076#1082#1072
+      OnChange = chkWARNINGChange
     end
     object chkINFO: TCheckBox
       Position.X = 96.000000000000000000
@@ -47,6 +51,7 @@ object frLog: TfrLog
       Size.PlatformDefault = False
       TabOrder = 4
       Text = #1048#1085#1092#1086
+      OnChange = chkWARNINGChange
     end
   end
   object sgLog: TStringGrid
@@ -58,8 +63,8 @@ object frLog: TfrLog
     Size.PlatformDefault = False
     TabOrder = 1
     RowCount = 0
-    Viewport.Width = 796.000000000000000000
-    Viewport.Height = 477.000000000000000000
+    Viewport.Width = 800.000000000000000000
+    Viewport.Height = 502.000000000000000000
     object StringColumn5: TStringColumn
       Header = #1044#1072#1090#1072
       HeaderSettings.TextSettings.WordWrap = False