No funciona OnChange cuando uso ActvePageIndex

[ToritoCapo]

Estimados amigos, este código proporcionado por escafandra funcionó excelente.

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.