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

uCreateNotify.pas

@@ -38,6 +38,7 @@ type
     procedure FormCreate(Sender: TObject);
     procedure btnCreateEventClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure cbEventsTypeChange(Sender: TObject);
   private
     { Private declarations }
     function GetColorFromColorPanel(aColor: TAlphaColor): string;
@@ -154,6 +155,12 @@ begin
   close;
 end;
 
+procedure TfCreateNotify.cbEventsTypeChange(Sender: TObject);
+begin
+   Label3.Visible := cbEventsType.ItemIndex = 4;
+  edtIF.Visible := cbEventsType.ItemIndex = 4;
+end;
+
 procedure TfCreateNotify.FormCreate(Sender: TObject);
 var
   i: integer;
@@ -268,8 +275,7 @@ begin
       TCheckBox(c).IsChecked := DB.ReadSetting(TCheckBox(c).Name) = '1';
     end;
   end;
-  var
-  n := 1;
+
   var
   cDir := myconst.fontsPath; // Èñêàòü â ïàïêå ñ ïðîãðàììîé
   var
@@ -284,7 +290,7 @@ begin
         frFontSettings2.cbFontStyleDefault.Items.Add(SearchRec.Name);
         frFontSettings3.cbFontStyleDefault.Items.Add(SearchRec.Name);
 
-        Inc(n);
+
       end;
     until FindNext(SearchRec) <> 0;
   ChDir('..');