Implementing first "strategy" for proof of concept

Test/TestNotifier_ChaosStress.pas

@@ -213,7 +213,7 @@ begin
                     //                    if not FOwnerFixture.FNotifier.IsFinalized then // Don't notify if finalized
                     begin
                         FOwnerFixture.FNotifier.Notify(
-                            function(Item: IMyStressTestInterface): Boolean
+                            function(const Item: IMyStressTestInterface): Boolean
                             begin
                                 Item.Foo(FThreadID); // Pass ThreadID as notification type for context
                                 Result := True; // Keep item
@@ -255,7 +255,6 @@ end;
 procedure TMycNotifierChaosStressTests.Setup;
 begin
     Randomize; // Initialize random number generator
-    FNotifier.Create;
     FAllReceiversCreated := TList<IMyStressTestInterface>.Create;
     FCriticalSectionForList := TCriticalSection.Create;
     FNextReceiverInstanceID := 0;
@@ -359,7 +358,7 @@ begin
             //            if not FNotifier.IsFinalized then
             begin
                 FNotifier.Notify(
-                    function(Item: IMyStressTestInterface): Boolean
+                    function(const Item: IMyStressTestInterface): Boolean
                     begin
                         actualLiveReceiversInNotifier.Add(Item);
                         Result := True;