сделал оповещения о событиях

forms/uCreateNotify.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants,
+  System.Variants, fOBS,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, fFontSettings,
   fColorSettings, FMX.StdCtrls, FMX.Edit, FMX.Controls.Presentation,
   FMX.ListBox, FMX.EditBox, FMX.SpinBox, FMX.Colors, uRecords;
@@ -39,9 +39,11 @@ type
     procedure btnCreateEventClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure cbEventsTypeChange(Sender: TObject);
+    procedure btnESTestClick(Sender: TObject);
   private
     { Private declarations }
     function GetColorFromColorPanel(aColor: TAlphaColor): string;
+    function GetColorFromCCB(aColor: TAlphaColor): string;
   public
     { Public declarations }
     isEdit: boolean;
@@ -155,6 +157,48 @@ begin
   close;
 end;
 
+
+
+function TfCreateNotify.GetColorFromCCB(aColor: TAlphaColor): string;
+var
+  Color: TAlphaColor;
+  r, G, B: Byte;
+begin
+  Color := aColor;
+  r := TAlphaColorRec(Color).r;
+  G := TAlphaColorRec(Color).G;
+  B := TAlphaColorRec(Color).B;
+  result := Format('#%.2X%.2X%.2X', [r, G, B]);
+end;
+
+procedure TfCreateNotify.btnESTestClick(Sender: TObject);
+var
+  se: TStyleEvent;
+  i: Integer;
+begin
+
+  se.Title := edtESTitle.Text;
+  se.Context := edtESMessage.Text;
+  se.Url := edtESImage.Text;
+  se.SoundURL := edtESSound.Text;
+  se.Timestamp := Now;
+  se.TimeMsg := round(sbTimeMsg.Value);
+  se.BorderColor := GetColorFromCCB(frColorSettings1.ccbStyleBorderColor.Color);
+  se.BorderSize := round(frColorSettings1.sbStyleBlockBorderSize.Value);
+  se.BlockColor := GetColorFromColorPanel(frColorSettings1.cpStyleBlockColor.Color);
+  se.FontTitle.Font := frFontSettings2.cbFontStyleDefault.Text;
+  se.FontTitle.Size := round(frFontSettings2.sbFontSize.Value);
+  se.FontTitle.Color := GetColorFromCCB(frFontSettings2.ccbFontColor.Color);
+  se.FontContext.Font := frFontSettings3.cbFontStyleDefault.Text;
+  se.FontContext.Size := round(frFontSettings3.sbFontSize.Value);
+  se.FontContext.Color := GetColorFromCCB(frFontSettings3.ccbFontColor.Color);
+  se.RequireInteraction := True;
+  for i := 0 to TTW_Bot.frOBS1.EventWebServers.Count - 1 do
+  begin
+    TTW_Bot.frOBS1.EventWebServers[i].WebServerChat.AddMessage(se);
+  end;
+end;
+
 procedure TfCreateNotify.cbEventsTypeChange(Sender: TObject);
 begin
    Label3.Visible := cbEventsType.ItemIndex = 4;