diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 1981cc72f0..ac7edd0be6 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -3436,7 +3436,7 @@ begin
     RaiseGDBException('');
   dec(fUpdateCount);
   if fUpdateCount=0 then
-    SimplifyPendingLayouts;
+    QueueSimplify:=True;
 end;
 
 procedure TAnchorDockMaster.NeedSimplify(AControl: TControl);
@@ -3736,7 +3736,7 @@ begin
   try
     BeginUpdateLayout;
     try
-      DockMaster.SimplifyPendingLayouts;
+      DockMaster.QueueSimplify:=True;
       NewControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockHostSite.ExecuteDock NewControl'){$ENDIF};
 
       if (NewControl.Parent=Self) and (SiteType=adhstLayout) then begin
@@ -6706,7 +6706,7 @@ begin
   if Site=nil then exit;
   DockMaster.RestoreLayouts.Add(DockMaster.CreateRestoreLayout(Site),true);
   Site.CloseSite;
-  DockMaster.SimplifyPendingLayouts;
+  DockMaster.QueueSimplify:=True;
 end;
 
 procedure TAnchorDockPageControl.MoveLeftButtonClick(Sender: TObject);