Estimados amigos, este código proporcionado por escafandra funcionó excelente.
Código:
void __fastcall TPageControl::SetActivePageIndex(const int Value)
{
if (Value > -1 && Value < PageCount)
ActivePage = Pages[Value];
else
ActivePage = 0;
if(OnChange) OnChange(this); // Lanzamos el Evento
}
Es lo que necesitaba para que se activara el OnChange.
Quiero felicitar y agradecer nuevamente a todos por su gran ayuda !!!!!
Saludos.