* Take care of Florian's remark that FList may be nil when constructor failed

git-svn-id: trunk@22593 -

rtl/objpas/classes/lists.inc

@@ -646,7 +646,8 @@ end;
 
 destructor TList.Destroy;
 begin
-  Clear;
+  if Assigned(Flist) then
+    Clear;
   If Assigned(FObservers) then
     begin
     FPONotifyObservers(Self,ooFree,Nil);