diff --git a/lcl/include/tabcontrol.inc b/lcl/include/tabcontrol.inc
index b6d1fdea92..c75a8ab64e 100644
--- a/lcl/include/tabcontrol.inc
+++ b/lcl/include/tabcontrol.inc
@@ -758,6 +758,11 @@ begin
   Result := TTabControlNoteBookStrings.Create(Self);
 end;
 
+function TTabControl.GetClientOrigin: TPoint;
+begin
+  Result := TTabControlNoteBookStrings(FTabs).FNoteBook.ClientOrigin;
+end;
+
 constructor TTabControl.Create(TheOwner: TComponent);
 begin
   FTabControlCreating:=true;