Index: VerpakkingsDefinitie/UI/GevondenProductenScherm.pas =================================================================== diff -u -r596 -r622 --- VerpakkingsDefinitie/UI/GevondenProductenScherm.pas (.../GevondenProductenScherm.pas) (revision 596) +++ VerpakkingsDefinitie/UI/GevondenProductenScherm.pas (.../GevondenProductenScherm.pas) (revision 622) @@ -39,7 +39,7 @@ begin inherited Create(AOwner, Navigator, ApplicationContext); self.FProductSubject := ProductSubject; - self.FSubjectObserver := TSubjectObserver.Create(self); + self.FSubjectObserver := TSubjectObserver.Create(); self.FSubjectObserver.OnChange := UpdateGui; self.FProductsAgent := ProductsAgent; end;