diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index d272bf5030..7f1fe4ea84 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/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;