исправил оповещения, теперь работают четко

utils/uRecords.pas

@@ -3,29 +3,11 @@ unit uRecords;
 interface
 
 type
-TEventGlobal = record
-  Event:integer;
-  Condition:string;
-  Action:integer;
-  Param:string;
-end;
-
-
-type
-  TRLog = record
-    rTime: ttime;
-    rType: string;
-    rModule: string;
-    rMethod: string;
-    rMessage: string;
-  end;
-
-type
-  TCounter = record
-    counterName: string;
-    trigger: string;
-    count: integer;
-    auto: integer;
+  TEventGlobal = record
+    Event: integer;
+    Condition: string;
+    Action: integer;
+    Param: string;
   end;
 
 type
@@ -33,19 +15,6 @@ type
     regexp: string;
   end;
 
-type
-  TListTimer = record
-    Enable: integer;
-    interval: integer;
-    o: integer;
-    mess: string;
-  end;
-
-type
-  TOBSKandinsky = record
-    port: integer;
-  end;
-
 type
   TOBSNotify = record
     Picture: string;
@@ -54,18 +23,18 @@ type
     ColorBlock: string;
     SolidBorder: integer;
     Paddings: integer;
-    ColorBorder: integer;
-    ColorBackground: integer;
+    ColorBorder: string;
+    ColorBackground: string;
 
     HeaderText: string;
-    HeaderColorFont: integer;
+    HeaderColorFont: string;
     HeaderSizeFont: integer;
-    HeaderStyleFont: integer;
+    HeaderStyleFont: string;
 
     MessText: string;
-    MessColorFont: integer;
+    MessColorFont: string;
     MessSizeFont: integer;
-    MessStyleFont: integer;
+    MessStyleFont: string;
 
     TimeMess: integer;
     TypeEvent: integer;
@@ -86,10 +55,37 @@ type
     MaxCountMess: integer;
     TimeMess: integer;
     port: integer;
-    freez:integer;
+    freez: integer;
     StyleFont: integer;
   end;
 
+type
+  TListCommands = record
+    R1: string;
+    R2: string;
+  end;
+
+type
+  TCounter = record
+    counterName: string;
+    trigger: string;
+    count: integer;
+    auto: integer;
+  end;
+
+type
+  TListTimer = record
+    Enable: integer;
+    interval: integer;
+    o: integer;
+    mess: string;
+  end;
+
+type
+  TOBSKandinsky = record
+    port: integer;
+  end;
+
 type
   TRandomCounters = record
     rndName: string;
@@ -98,9 +94,12 @@ type
   end;
 
 type
-  TListCommands = record
-    R1: string;
-    R2: string;
+  TRLog = record
+    rTime: ttime;
+    rType: string;
+    rModule: string;
+    rMethod: string;
+    rMessage: string;
   end;
 
 type
@@ -270,7 +269,7 @@ type
     format: TArray<string>;
     scale: TArray<string>;
     theme_mode: TArray<string>;
-    topImage:string;
+    topImage: string;
   end;
 
   TStyleChat = record
@@ -342,7 +341,7 @@ type
     version: string;
     status: string;
     cost: integer;
-    condition: TCondition;
+    Condition: TCondition;
     transport: TTransport;
     created_at: string;
   end;
@@ -383,7 +382,7 @@ type
 
   TCustomRewardEvent = record
     subscription: TSubscriptionPoints;
-    event: TEventReward;
+    Event: TEventReward;
   end;
 
   TMetadata = record
@@ -455,22 +454,22 @@ type
 
   TFollowEvent = record
     subscription: TSubscriptionPoints;
-    event: TEventFollow;
+    Event: TEventFollow;
   end;
 
   TSubEvent = record
     subscription: TSubscriptionPoints;
-    event: TEventSub;
+    Event: TEventSub;
   end;
 
   TGiftEvent = record
     subscription: TSubscriptionPoints;
-    event: TEventGift;
+    Event: TEventGift;
   end;
 
   TRaidEvent = record
     subscription: TSubscriptionPoints;
-    event: TEventRaid;
+    Event: TEventRaid;
   end;
 
   TBotAppCfg = record