* Fix bug #33516

git-svn-id: trunk@38627 -

rtl/objpas/classes/collect.inc

@@ -304,7 +304,8 @@ destructor TCollection.Destroy;
 begin
   FUpdateCount:=1; // Prevent OnChange
   try
-    DoClear;
+    if Assigned(FItems) then
+      DoClear;
   Finally
     FUpdateCount:=0;
   end;