funcion para no repetir codigo:(

[cloayza]

Creo que este código te servira para lo que requieres...

Debes considerar lo siguiente:
El ejercicio consta de:

Un Menu con los siguientes items:

mnuPage0.Caption:='Pagina 0';
mnuPage0.Tag:=0; //COrresponde al indice de la página a mostrar

mnuPage1.Caption:='Pagina 1';
mnuPage1.Tag:=1;

mnuPage2.Caption:='Pagina 2';
mnuPage2.Tag:=2;

En el evento del mnuPage0 escribe este código:

Código Delphi [-]

Procedure TForm1.ShowPage(Index:Integer);
var
   i:Integer;
begin
       //Se asegura de ocultar todas las paginas.
       For i:=0 to PageControl1.PageCount-1 do
            PageControl1.Pages[i].TabVisible:=False;

     //Activa la pagina correspondiente
     PageControl1.Pages[Index].TabVisible:=True;
end;

procedure TForm1.mmuPage0Click(Sender: TObject);
begin
       ShowPage(TMenuItem(Sender).Tag);
end;

Y asocialo a los otros menuitem (mnuPage1, mnuPage2);

Eso seria todo.