diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index a28b185abc..e7da9ccfe2 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -839,6 +839,7 @@ type
     procedure AdjustDisplayRectWithBorder(var ARect: TRect); virtual;
     procedure AdjustClientRect(var ARect: TRect); override;
     function CreateTabNoteBookStrings: TTabControlNoteBookStrings; virtual;
+    function GetClientOrigin: TPoint; override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;