diff --git a/lcl/forms.pp b/lcl/forms.pp
index 8dd1988aff..98be539b74 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -454,7 +454,7 @@ type
     procedure WndProc(var TheMessage : TLMessage); override;
     function VisibleIsStored: boolean;
     function ColorIsStored: boolean; override;
-    procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
+    procedure DoSendBoundsToInterface; override;
   protected
     // drag and dock
     procedure DoDock(NewDockSite: TWinControl; var ARect: TRect); override;
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 150d7445df..9133f711e5 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -929,9 +929,9 @@ begin
   Result:=(Color<>clBtnFace);
 end;
 
-procedure TCustomForm.DoSetBounds(ALeft, ATop, AWidth, AHeight: integer);
+procedure TCustomForm.DoSendBoundsToInterface;
 begin
-  inherited DoSetBounds(ALeft, ATop, AWidth, AHeight);
+  inherited DoSendBoundsToInterface;
   if WindowState=wsNormal then begin
     FRestoredLeft:=Left;
     FRestoredTop:=Top;