🐜 Small bug (#30)

Unit: Notify.API.Indy

- The routine used to fire the messages array when polling option was
used wasn't working correctly. A small adjustment was made to split the
server response string into a string array and then fire a new message
for each array item.

src/Notify.Api.Indy.pas

@@ -82,8 +82,12 @@ implementation
   IdURI,
   Notify.SmartPointer,
   System.SysUtils,
+  System.StrUtils,
+  System.Types,
   Notify.Logs,
-  Notify.Notification.DTO, Notify.Error, Notify.Response.Data;
+  Notify.Notification.DTO,
+  Notify.Error,
+  Notify.Response.Data;
 
 { TNotityApiIndy }
 
@@ -333,6 +337,8 @@ destructor TSSEThread.Destroy;
 procedure TSSEThread.DoOnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
 var
   LEventString: UTF8String;
+  LStrings: TArray<String>;
+  LString: UTF8String;
 begin
 
   if Terminated then
@@ -347,7 +353,10 @@ procedure TSSEThread.DoOnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount
   if LEventString = FCloseConnectionMessage then
     FIdHttp.Socket.Close;
 
-  NxHorizon.Instance.Post<TNotifySubscriptionEvent>(LEventString);
+  LStrings := SplitString(LEventString, #$A);
+
+  for LString in LStrings do
+    NxHorizon.Instance.Post<TNotifySubscriptionEvent>(LString);
 
 end;