Bugfix in TEvent, DataServer Push-Mode

Src/Myc.Core.Tasks.pas

@@ -82,7 +82,7 @@ type
         procedure EnqueueJob(const Job: TProc);
         function Run(Job: TProc): TSignal.ISubscriber;
         function CreateTask(const Gate: TState; const Proc: TProc): TSignal.TSubscription;
-        procedure WaitFor(State: TState.IState);
+        procedure WaitFor(const State: TState.IState);
         procedure Teardown;
         function InMainThread: Boolean;
         function InWorkerThread: Boolean;
@@ -345,7 +345,7 @@ begin
     end;
 end;
 
-procedure TMycTaskFactory.WaitFor(State: TState.IState);
+procedure TMycTaskFactory.WaitFor(const State: TState.IState);
 var
     lock: TSemaphore; // This is System.SyncObjs.TSemaphore
 begin