Index: VerpakkingsDefinitie/UI/ObserverPattern.pas
===================================================================
diff -u -r583 -r596
--- VerpakkingsDefinitie/UI/ObserverPattern.pas	(.../ObserverPattern.pas)	(revision 583)
+++ VerpakkingsDefinitie/UI/ObserverPattern.pas	(.../ObserverPattern.pas)	(revision 596)
@@ -12,9 +12,9 @@
     FEnabled: Boolean;
     FOnChange: TNotifyEvent;
   protected
-    procedure Change;
+    procedure Change(Subject: TObject);
   public
-    constructor Create(AOwner: TComponent);override;
+    constructor Create(AOwner: TComponent); override;
   published
     property Enabled: Boolean read FEnabled write FEnabled;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
@@ -39,10 +39,10 @@
   self.FEnabled := True;
 end;
 
-procedure TSubjectObserver.Change;
+procedure TSubjectObserver.Change(Subject: TObject);
 begin
   if Assigned(FOnChange) then
-    FOnChange(self);
+    FOnChange(Subject);
 end;
 
 constructor TSubject.Create();
@@ -60,7 +60,7 @@
   begin
     Obs := FObservers[I];
     if Obs.Enabled then
-      Obs.Change;
+      Obs.Change(self);
   end;
 end;
 
@@ -71,7 +71,7 @@
     FObservers.Add(Observer);
     // Update nieuwe observer
     if Observer.Enabled then
-      Observer.Change;
+      Observer.Change(self);
   end;
 end;