Regresar a la pespaña anterior en el pagecontrol

[novato_erick]

Hola amigamos:

Estoy utilizando el Componente PageControl el cual tengo una validación que si no se cumple regrese a la pestaña principal o a la pagina principal del pageControl1.

como el TabSheet no tiene un evento OnClick lo relizo en el OnShow del segundo TabSheet ejemplo:

Código Delphi [-]
procedure TFrmIngresarArticulo.TabSheet2Show(Sender: TObject);
begin
if Valida = false then
 begin
  ShowMessage('Favor Verificar Datos de Articulos');
 // PageControl1.FindNextPage(TabSheet2, False, True); //también lo intente de esta forma utilizando el método findnextPage del PageControl pero no me funciono
 PageControl1.ActivePage := PageControl1.Pages[0];// aqui traté de obligar a que se ponga en la pagina con el indice 0
 end;
end;

Alguna sugerencia?

Saludos