From 501f20c546eccc29f98ac49bbe8d34d386ef89c3 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 17 May 2009 17:09:26 +0000
Subject: [PATCH]  * reversed destruction order of TFPObjectList as per Mantis
 13715.   Note that it is _NOT_ good coding to rely on such things

git-svn-id: trunk@13168 -
---
 packages/fcl-base/src/contnrs.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;