доделал автоматические действия

fAutoActions.fmx

@@ -75,6 +75,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 44
       RowCount = 0
       OnEditingDone = sgTimersEditingDone
+      OnCellClick = sgTimersCellClick
       Viewport.Width = 459.000000000000000000
       Viewport.Height = 200.000000000000000000
       object ccTimerEnable: TCheckColumn
@@ -122,6 +123,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 39
       Text = #1044#1086#1073#1072#1074#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnBanWordsAddClick
     end
     object btnBanWordsEdt: TButton
       Position.X = 96.000000000000000000
@@ -129,6 +131,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 40
       Text = #1048#1079#1084#1077#1085#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnBanWordsEdtClick
     end
     object btnBanWordsDel: TButton
       Position.X = 184.000000000000000000
@@ -136,6 +139,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 41
       Text = #1059#1076#1072#1083#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnBanWordsDelClick
     end
     object sgBanWords: TStringGrid
       CanFocus = True
@@ -147,6 +151,7 @@ object frAutoActions: TfrAutoActions
       Size.PlatformDefault = False
       TabOrder = 42
       RowCount = 0
+      OnCellClick = sgBanWordsCellClick
       Viewport.Width = 293.000000000000000000
       Viewport.Height = 200.000000000000000000
       object scRegEx: TStringColumn
@@ -162,6 +167,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 43
       Text = #1055#1088#1086#1074#1077#1088#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnBanWordsCheckClick
     end
     object Label6: TLabel
       Position.X = 8.000000000000000000
@@ -239,6 +245,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 40
       Text = #1044#1086#1073#1072#1074#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnCounterAddClick
     end
     object btnCounterDelete: TButton
       Position.X = 184.000000000000000000
@@ -246,6 +253,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 42
       Text = #1059#1076#1072#1083#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnCounterDeleteClick
     end
     object btnCounterP: TButton
       Position.X = 410.000000000000000000
@@ -256,6 +264,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 43
       Text = '+'
       TextSettings.Trimming = None
+      OnClick = btnCounterPClick
     end
     object btnCounterM: TButton
       Position.X = 443.000000000000000000
@@ -266,6 +275,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 44
       Text = '-'
       TextSettings.Trimming = None
+      OnClick = btnCounterMClick
     end
     object btnCounterEdit: TButton
       Position.X = 96.000000000000000000
@@ -273,6 +283,7 @@ object frAutoActions: TfrAutoActions
       TabOrder = 45
       Text = #1048#1079#1084#1077#1085#1080#1090#1100
       TextSettings.Trimming = None
+      OnClick = btnCounterEditClick
     end
     object sgCounter: TStringGrid
       CanFocus = True
@@ -284,6 +295,7 @@ object frAutoActions: TfrAutoActions
       Size.PlatformDefault = False
       TabOrder = 46
       RowCount = 0
+      OnCellClick = sgCounterCellClick
       Viewport.Width = 459.000000000000000000
       Viewport.Height = 96.000000000000000000
       object scCounterName: TStringColumn