diff --git a/packages/fcl-base/src/contnrs.pp b/packages/fcl-base/src/contnrs.pp
index a5f6d74d78..8a84ff8da4 100644
--- a/packages/fcl-base/src/contnrs.pp
+++ b/packages/fcl-base/src/contnrs.pp
@@ -613,7 +613,7 @@ var
   i: integer;
 begin
   if FFreeObjects then
-    for i := 0 to FList.Count - 1 do
+    for i := FList.Count-1 downto 0  do
       TObject(FList[i]).Free;
   FList.Clear;
 end;