Bugfix in TEvent, DataServer Push-Mode

Src/Myc.Signals.FMX.pas

@@ -9,7 +9,7 @@ uses
     Myc.Signals;
 
 type
-    TMsgProc = reference to procedure( const Sender: TObject; const M: TMessage );
+    TMsgProc = reference to procedure(const Sender: TObject; const M: TMessage);
 
     TComponentValidation = class(TComponent)
     private
@@ -32,11 +32,12 @@ type
 implementation
 
 uses
-    {$IFDEF FRAMEWORK_FMX}
+{$IFDEF FRAMEWORK_FMX}
     FMX.Types
-    {$ELSE}
+{$ELSE}
     VCL.Types // to be checked
-    {$IFEND};
+{$IFEND}
+        ;
 
 { TComponentValidation }
 
@@ -58,17 +59,13 @@ end;
 procedure TComponentValidation.DoMsg(const Sender: TObject; const M: TMessage);
 begin
     if FReceived.Reset then
-        FProc( Sender, M );
+        FProc(Sender, M);
 end;
 
 procedure TComponentValidationHelper.AddIdleHandler(const Signal: TSignal; const Proc: TProc);
 begin
     var capProc := Proc;
-    AddMsgHandler(TIdleMessage, Signal,
-        procedure( const Sender: TObject; const M: TMessage )
-        begin
-            capProc();
-        end );
+    AddMsgHandler(TIdleMessage, Signal, procedure(const Sender: TObject; const M: TMessage) begin capProc(); end);
 end;
 
 procedure TComponentValidationHelper.AddMsgHandler(const MsgClass: TClass; const Signal: TSignal; const Proc: TMsgProc);