Index: rtl/objpas/classes/lists.inc
===================================================================
--- rtl/objpas/classes/lists.inc	(revision 11044)
+++ rtl/objpas/classes/lists.inc	(working copy)
@@ -546,7 +546,11 @@
 
 procedure TList.SetCount(NewCount: Integer);
 begin
-  FList.SetCount(NewCount);
+  if NewCount < FList.Count then
+    while FList.Count > NewCount do
+      Delete(FList.Count - 1)
+  else
+    FList.SetCount(NewCount);
 end;
 
 constructor TList.Create;
