diff --git a/lcl/controls.pp b/lcl/controls.pp
index b43728835a..6f31948bff 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1132,8 +1132,7 @@ type
     procedure EditingDone; virtual;
     procedure ExecuteDefaultAction; virtual;
     procedure ExecuteCancelAction; virtual;
-    procedure BeginDrag(Immediate: Boolean; Threshold: Integer);
-    procedure BeginDrag(Immediate: Boolean);
+    procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
     procedure BringToFront;
     function ColorIsStored: boolean; virtual;
     function HasParent: Boolean; override;
diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 8f29265057..304ae96718 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -85,14 +85,6 @@ begin
   end;
 end;
 
-{------------------------------------------------------------------------------
-  procedure TControl.BeginDrag(Immediate: Boolean);
-------------------------------------------------------------------------------}
-procedure TControl.BeginDrag(Immediate: Boolean);
-begin
-  BeginDrag(Immediate, -1);
-end;
-
 {------------------------------------------------------------------------------
        TControl.BeginAutoDrag
 ------------------------------------------------------------------------------}