+ Fixed issue #7289, thanks to patch from submitter

git-svn-id: trunk@4470 -

fcl/inc/contnrs.pp

@@ -597,8 +597,8 @@ end;
 
 destructor TComponentList.Destroy;
 begin
-  FNotifier.Free;
   inherited;
+  FreeAndNil(FNotifier);
 end;
 
 Function TComponentList.Extract(Item: TComponent): TComponent;