diff --git a/lcl/controls.pp b/lcl/controls.pp
index 58415b1d00..ce425de86f 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1947,7 +1947,6 @@ type
     procedure DoSetBounds(ALeft, ATop, AWidth, AHeight: integer); override;
     procedure DoAutoSize; override;
     procedure DoAllAutoSize; override;
-    function AutoSizeCanStart: boolean; deprecated;
     procedure AllAutoSized; virtual; // called by DoAllAutoSize after all bounds are computed, see TCustomForm.AllAutoSized
     procedure CalculatePreferredSize(var PreferredWidth,
                                      PreferredHeight: integer;
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index 90299d0ab5..3a7a24054f 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -3556,11 +3556,6 @@ begin
   end;
 end;
 
-function TWinControl.AutoSizeCanStart: boolean;
-begin
-  Result:=true;
-end;
-
 procedure TWinControl.AllAutoSized;
 begin
   // see TCustomForm.AllAutoSized