No funciona OnChange cuando uso ActvePageIndex

[ToritoCapo]

Hola Amigos !!!!!

En un TPageControl cuando el usuario cambia de pestañas se activa el evento OnChange que realiza una acción determinada.

El problema es que cuando uso la propiedad ActivePageIndex el evento OnChange no se activa.

Estuve buscando un poco y encontré este código que puede llegar a servir, pero.... no lo entiendo, me sería muy útil que estuviera en C++

type
   THackPageControl = Class(TPageControl) ;

procedure SetAsActivePage(tabSheet : TTabSheet) ;
begin
   if tabSheet.PageControl.ActivePage <> tabSheet then
   begin
     If THackPageControl(tabSheet.PageControl).CanChange then
     begin
         tabSheet.PageControl.ActivePage := tabSheet;
         THackPageControl(tabSheet.PageControl).Change;
     end
     else Abort;
   end;
end;

Saludos.