обработка счетчиков и сохранение галочек озвучки и приветствия

frames/fContruct.fmx

@@ -86,6 +86,7 @@ object frContruct: TfrContruct
       TabOrder = 41
       Text = #1057#1095#1077#1090#1095#1080#1082
       TextSettings.Trimming = None
+      OnClick = btnCounterAddtoTextClick
     end
     object cbCounterName: TComboBox
       Position.X = 111.000000000000000000
@@ -155,13 +156,24 @@ object frContruct: TfrContruct
     Text = #1059#1076#1072#1083#1080#1090#1100
     TextSettings.Trimming = None
   end
-  object cbTextToSpeech: TCheckBox
-    Position.X = 167.000000000000000000
-    Size.Width = 217.000000000000000000
+  object cbTextToSpeach: TCheckBox
+    Position.X = 240.000000000000000000
+    Position.Y = 8.000000000000000000
+    Size.Width = 152.000000000000000000
     Size.Height = 19.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 46
-    Text = #1054#1079#1074#1091#1095#1080#1074#1072#1090#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1103' '#1087#1086#1089#1083#1077' "!!!"'
-    Visible = False
+    Text = #1054#1079#1074#1091#1095#1080#1090#1100' '#1087#1086#1089#1083#1077'  !!!'
+    OnExit = cbTextToSpeachExit
+  end
+  object cbHelloTTS: TCheckBox
+    Position.X = 240.000000000000000000
+    Position.Y = 35.000000000000000000
+    Size.Width = 151.000000000000000000
+    Size.Height = 19.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 47
+    Text = #1055#1088#1080#1074#1077#1090#1089#1090#1074#1086#1074#1072#1090#1100' '#1085#1086#1074#1099#1093
+    OnExit = cbHelloTTSExit
   end
 end