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

forms/uCreateChat.pas

@@ -29,6 +29,7 @@ type
     procedure FormCreate(Sender: TObject);
     procedure btnCreateWebChatClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure btnWebChatTestClick(Sender: TObject);
   private
     { Private declarations }
     function GetColorFromColorPanel(aColor: TAlphaColor): string;
@@ -117,6 +118,21 @@ begin
   close;
 end;
 
+procedure TfCreateChat.btnWebChatTestClick(Sender: TObject);
+var j:integer; aRecord: TTwitchChatMessage;
+begin
+aRecord.Username:='Test';
+aRecord.DisplayName:='Test';
+aRecord.Message:=edtWebChatTest.Text;
+ for j := 0 to TTW_Bot.frOBS1.ChatWebServers.Count - 1 do
+    begin
+        if TTW_Bot.frOBS1.ChatWebServers[j].port = round(sbWebServerPort.Value) then
+        begin
+          TTW_Bot.frOBS1.MsgToWebServer(aRecord);
+        end;
+    end;
+end;
+
 procedure TfCreateChat.FormCreate(Sender: TObject);
   procedure LoadFontList;
   var