fixed issue with wrong notifications

Knockoff.Observable.pas

@@ -262,10 +262,12 @@ procedure TObservableBase.ClearDependencies;
 
 procedure TObservableBase.Notify(const value: TValue; trigger: TNotifyTrigger);
 var
+  subscribers: TArray<TObservableBase>;
   i: Integer;
 begin
-  for i := 0 to fSubscribers.Count - 1 do
-    fSubscribers[i].Notify(value, trigger);
+  subscribers := fSubscribers.ToArray;
+  for i := 0 to High(subscribers) do
+    subscribers[i].Notify(value, trigger);
   inherited Notify(value, trigger);
 end;
 

ObservableTests.pas

@@ -17,6 +17,7 @@   TObservableTests = class(TTestCase)
     procedure DependentObservableUpdatesValueWhenDependencyChanges;
 
     procedure DependentObservableClearsOldDependencies;
+    procedure DependentObservableNotifiesMultipleDependenciesProperly;
   end;
 
   KO = Observable;
@@ -71,6 +72,35 @@ procedure TObservableTests.DependentObservableEvaluatesOnlyOnceAfterChange;
   CheckEquals(1, count);
 end;
 
+procedure TObservableTests.DependentObservableNotifiesMultipleDependenciesProperly;
+var
+  o: Observable<Integer>;
+  dependency1, dependency2: Observable<Boolean>;
+  callCount1, callCount2: Integer;
+begin
+  o := KO.Create<Integer>(0);
+  dependency1 := KO.Computed<Boolean>(
+    function: Boolean
+    begin
+      Result := o < 10;
+      Inc(callCount1);
+    end);
+  dependency2 := KO.Computed<Boolean>(
+    function: Boolean
+    begin
+      Result := o < 10;
+      Inc(callCount2);
+    end);
+  CheckEquals(1, callCount1);
+  CheckEquals(1, callCount2);
+  Check(o < 10);
+  CheckEquals(1, callCount1);
+  CheckEquals(1, callCount2);
+  o(o+1);
+  CheckEquals(2, callCount1);
+  CheckEquals(2, callCount2);
+end;
+
 procedure TObservableTests.DependentObservableReturnsValue;
 var
   o: Observable<string>;