Merged revisions 4470 via svnmerge from

svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r4470 | michael | 2006-08-20 17:43:54 +0200 (Sun, 20 Aug 2006) | 1 line
  
  + Fixed issue #7289, thanks to patch from submitter
........

git-svn-id: branches/fixes_2_0@4471 -

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;