diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index 9e03ebd5ad..7205a07608 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -2495,22 +2495,12 @@ begin
 end;
 
 procedure TAnchorDockMaster.MakeVisible(AControl: TControl; SwitchPages: boolean);
-var
-  Form: TCustomForm;
 begin
   while AControl<>nil do begin
     AControl.Visible:=true;
     if SwitchPages and (AControl is TAnchorDockPage) then
       TAnchorDockPageControl(AControl.Parent).PageIndex:=
         TAnchorDockPage(AControl).PageIndex;
-    if AControl.Parent=nil then begin
-      if AControl is TCustomForm then begin
-        Form:=TCustomForm(AControl);
-        if Form.Monitor<>nil then
-          Form.MakeFullyVisible(nil,true);
-      end;
-      break;
-    end;
     AControl:=AControl.Parent;
   end;
 end;