diff --git a/components/chmhelp/lhelp/lhelpcore.lfm b/components/chmhelp/lhelp/lhelpcore.lfm
index 60974d28dc..8fea0f509d 100644
--- a/components/chmhelp/lhelp/lhelpcore.lfm
+++ b/components/chmhelp/lhelp/lhelpcore.lfm
@@ -253,7 +253,6 @@ object HelpForm: THelpForm
     TabPosition = tpBottom
     OnChange = PageControlChange
     OnEnter = PageControlEnter
-    OnPageChanged = PageControlChange
   end
   object MainMenu1: TMainMenu
     left = 208
diff --git a/docs/xml/lcl/comctrls.xml b/docs/xml/lcl/comctrls.xml
index 2eb333be98..25707b00fe 100644
--- a/docs/xml/lcl/comctrls.xml
+++ b/docs/xml/lcl/comctrls.xml
@@ -1988,9 +1988,9 @@
         <seealso/>
       </element>
       <!-- property Visibility: public -->
-      <element name="TCustomTabControl.OnPageChanged">
+      <element name="TCustomTabControl.OnChange">
         <short>
-          <var>OnPageChanged</var> - event handler for a change in the page</short>
+          <var>OnChange</var> - event handler for a change in the page</short>
         <descr/>
         <seealso/>
       </element>
@@ -3519,7 +3519,7 @@
           <p>
             <var>Create</var> - constructor for <var>TTabControlNoteBookStrings</var>: calls inherited <var>Create</var> then sets some default Actions</p>
           <p>Among the actions set are:</p>
-          <p>OnGetImageIndex, OnChanging, OnPageChanged. Notebook is created with a nominated parent</p>
+          <p>OnGetImageIndex, OnChanging, OnChange. Notebook is created with a nominated parent</p>
         </descr>
         <errors/>
         <seealso>
@@ -18206,7 +18206,6 @@ the comparision is case sensitive.
       <element name="TPageControl.OnDragOver" link="#LCL.Controls.TControl.OnDragOver"/>
       <element name="TPageControl.OnEndDock" link="#LCL.Controls.TControl.OnEndDock"/>
       <element name="TPageControl.OnEndDrag" link="#LCL.Controls.TControl.OnEndDrag"/>
-      <element name="TPageControl.OnPageChanged" link="#LCL.ComCtrls.TCustomTabControl.OnPageChanged"/>
       <element name="TPageControl.OnStartDock" link="#LCL.Controls.TControl.OnStartDock"/>
       <element name="TPageControl.OnStartDrag" link="#LCL.Controls.TControl.OnStartDrag"/>
       <element name="TPageControl.OnUnDock" link="#LCL.Controls.TWinControl.OnUnDock"/>
diff --git a/examples/cleandir/frmmain.lfm b/examples/cleandir/frmmain.lfm
index ee62f85a2f..947274b325 100644
--- a/examples/cleandir/frmmain.lfm
+++ b/examples/cleandir/frmmain.lfm
@@ -72,7 +72,6 @@ object MainForm: TMainForm
     TabIndex = 3
     TabOrder = 1
     OnChange = PCConfigChange
-    OnPageChanged = PCConfigChange
     object TSOptions: TTabSheet
       Caption = 'Options'
       ClientHeight = 380
diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp
index 96eafa9026..43dc718476 100644
--- a/lcl/extctrls.pp
+++ b/lcl/extctrls.pp
@@ -150,6 +150,7 @@ type
     property DragCursor;
     property DragMode;
     property Enabled;
+//    property OnChange;
     property OnChangeBounds;
 //    property OnChanging;
     property OnContextPopup;
@@ -163,7 +164,6 @@ type
     property OnMouseLeave;
     property OnMouseMove;
     property OnMouseUp;
-//    property OnPageChanged;
     property OnResize;
     property OnStartDrag;
 //    property Options;
diff --git a/lcl/include/tabcontrol.inc b/lcl/include/tabcontrol.inc
index f338b5a248..a615b57650 100644
--- a/lcl/include/tabcontrol.inc
+++ b/lcl/include/tabcontrol.inc
@@ -780,8 +780,8 @@ var
   p: TObject;
 begin
   //inherited DoChange;
-  if Assigned(OnPageChanged) then
-    OnPageChanged(Self)
+  if Assigned(OnChange) then
+    OnChange(Self)
   else begin
   //emulate page switch
     for i := 0 to TabCount - 1 do begin