diff --git a/lcl/interfaces/win32/win32pagecontrol.inc b/lcl/interfaces/win32/win32pagecontrol.inc
index 2f19ce1744..79724e5253 100644
--- a/lcl/interfaces/win32/win32pagecontrol.inc
+++ b/lcl/interfaces/win32/win32pagecontrol.inc
@@ -463,19 +463,6 @@ begin
   AdjustSizeNotebookPages(ANotebook);
 end;
 
-{$IFDEF old}
-class function TWin32WSCustomNotebook.GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer;
-var
-  X: Integer;
-begin
-  Result := AIndex;
-  if csDesigning in ANotebook.ComponentState then exit;
-  for X := 0 to AIndex - 1 do
-    if ANotebook.Page[X].TabVisible = False then Dec(Result);
-end;
-{$ELSE}
-{$ENDIF}
-
 procedure SendSelChangeMessage(const ANotebook: TCustomNotebook; const AHandle: HWND;
   const APageIndex: integer);
 var
diff --git a/lcl/interfaces/win32/win32wscomctrls.pp b/lcl/interfaces/win32/win32wscomctrls.pp
index d91fc3de48..73f6df5640 100644
--- a/lcl/interfaces/win32/win32wscomctrls.pp
+++ b/lcl/interfaces/win32/win32wscomctrls.pp
@@ -70,11 +70,6 @@ type
     class procedure RemovePage(const ANotebook: TCustomNotebook;
       const AIndex: integer); override;
 
-  {$IFDEF old}
-    class function GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer; override;
-  {$ELSE}
-    //use ANotebook.PageToTabIndex (and .TabToPageIndex)
-  {$ENDIF}
     class function GetTabIndexAtPos(const ANotebook: TCustomNotebook; const AClientPos: TPoint): integer; override;
     class function GetTabRect(const ANotebook: TCustomNotebook; const AIndex: Integer): TRect; override;
     class function GetCapabilities: TNoteBookCapabilities;override;
diff --git a/lcl/interfaces/wince/wincepagecontrol.inc b/lcl/interfaces/wince/wincepagecontrol.inc
index d766735bda..2f43c21418 100644
--- a/lcl/interfaces/wince/wincepagecontrol.inc
+++ b/lcl/interfaces/wince/wincepagecontrol.inc
@@ -383,16 +383,6 @@ begin
   AdjustSizeNotebookPages(ANotebook);
 end;
 
-class function TWinCEWSCustomNotebook.GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer;
-var
-  X: Integer;
-begin
-  Result := AIndex;
-
-  for X := 0 to AIndex - 1 do
-    if ANotebook.Page[X].TabVisible = False then Dec(Result);
-end;
-
 procedure SendSelChangeMessage(const ANotebook: TCustomNotebook; const AHandle: HWND;
   const APageIndex: integer);
 var
diff --git a/lcl/interfaces/wince/wincewscomctrls.pp b/lcl/interfaces/wince/wincewscomctrls.pp
index 7ae06a7075..6b3fc7c64c 100644
--- a/lcl/interfaces/wince/wincewscomctrls.pp
+++ b/lcl/interfaces/wince/wincewscomctrls.pp
@@ -66,7 +66,6 @@ type
     class procedure RemovePage(const ANotebook: TCustomNotebook;
       const AIndex: integer); override;
 
-    class function GetPageRealIndex(const ANotebook: TCustomNotebook; AIndex: Integer): Integer; override;
     class function GetTabIndexAtPos(const ANotebook: TCustomNotebook; const AClientPos: TPoint): integer; override;
     class function GetTabRect(const ANotebook: TCustomNotebook; const AIndex: Integer): TRect; override;
     class function GetCapabilities: TNoteBookCapabilities;override;