Anchordocking: Use a different way to free unneeded controls.

git-svn-id: trunk@46750 -

components/anchordocking/anchordocking.pas

@@ -3076,12 +3076,16 @@ begin
     until not Changed;
 
     // free unneeded controls
+    for i := fNeedFree.Count - 1 downto 0 do
+      if csDestroying in TControl(fNeedFree[i]).ComponentState then
+        TControl(fNeedFree[i]).Free;
+{ was:
     while fNeedFree.Count>0 do
       if csDestroying in TControl(fNeedFree[0]).ComponentState then
         fNeedFree.Delete(0)
       else
         TControl(fNeedFree[0]).Free;
-
+}
   finally
     fSimplifying:=false;
   end;