TaskManager.RunTask() & TFuture.Chain(Proc)

Src/Myc.Signals.pas

@@ -233,8 +233,9 @@ end;
 
 constructor TState.Create(const AState: IState);
 begin
-    if Assigned(AState) then
-        FState := AState;
+    FState := AState;
+    if not Assigned(FState) then
+        FState := Null;
 end;
 
 class constructor TState.ClassCreate;
@@ -304,8 +305,9 @@ end;
 
 constructor TEvent.Create(const AEvent: IEvent);
 begin
-    if Assigned(AEvent) then
-        FEvent := AEvent;
+    FEvent := AEvent;
+    if not Assigned(FEvent) then
+        FEvent := Null;
 end;
 
 class constructor TEvent.ClassCreate;
@@ -357,8 +359,9 @@ end;
 
 constructor TFlag.Create(const AFlag: IFlag);
 begin
-    if Assigned(AFlag) then
-        FFlag := AFlag;
+    FFlag := AFlag;
+    if not Assigned(FFlag) then
+        FFlag := Null;
 end;
 
 class function TFlag.CreateFlag(Init: Boolean = false): TFlag;
@@ -412,8 +415,9 @@ end;
 
 constructor TLatch.Create(const ALatch: TLatch.ILatch);
 begin
-    if Assigned(ALatch) then
-        FLatch := ALatch;
+    FLatch := ALatch;
+    if not Assigned(FLatch) then
+        FLatch := Null;
 end;
 
 class function TLatch.CreateLatch(Count: Integer): ILatch;
@@ -500,8 +504,9 @@ end;
 
 constructor TSignal.Create(const ASignal: ISignal);
 begin
-    if Assigned(FSignal) then
-        FSignal := ASignal;
+    FSignal := ASignal;
+    if not Assigned(FSignal) then
+        FSignal := Null;
 end;
 
 function TSignal.Subscribe(Subscriber: ISubscriber): TSubscription;