* 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

@@ -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;