Delphi - llamar OnChanging del pagecontrol por codigo

hola de nuevo
me encuentro en un problema:
tengo un pagecontrol en la forma de delphi
con dos tabsheets, tabsheet1 y tabsheet2
cuando me posiciono con el raton en el pagecontrol
y selecciono con el raton la tabsheet1 y luego la tabsheet2
si me manda llamar el evento
OnChanging del pagecontrol
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);

pero en un boton tengo estas dos lineas de codigo
tabsheet1.PageControl.ActivePage:=tabsheet1;
tabsheet1.PageControl.ActivePage:=tabsheet2;

y ejecuto el boton no manda llamar el evento
OnChanging del pagecontrol
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);

como puedo hacer para que por medio de codigo llame a ese evento
OnChanging del pagecontrol
espero alguien pueda ayudarme gracias.

No entiendo muy bien lo que quieres pero por ejemplo
" pero en un boton tengo estas dos lineas de codigo
tabsheet1.PageControl.ActivePage:=tabsheet1;
tabsheet1.PageControl.ActivePage:=tabsheet2; "
que finalidad tiene que hagas la pagina activa el TabSheet1 y a continuacion el TabSheet2 ?.
Si lo que quieres es llamas al evento OnChanging (una vez implementado) del PageControl desde un procedimiento externo basta que escribas PageControl1Changing(nil);
De todas formas piensa que Onchanging es mientras se produce el cambio. Quizas te interese mas Onchange que se dispara una vez producido el cambio.
Suerte.