Ayuda para Simplificar codigo

[escorpionrojo43]

Hola Companeros del Club. primero que nada soy novato en esto. el punto es que estoy haciendo un programa hasta el momento todo marcha bien pero mi codigo esta un poco grande y se que se puede simplificar, espero que me ayuden, el caso es que tengo 16 botones y a cada uno lo tengo con estas sentencias

procedure TTMSForm1.AdvGlowButton6Click(Sender: TObject);
begin
with AdvToolBarPager1 do
begin
AdvPages[0].TabVisible:=false;
AdvPages[1].TabVisible:=false;
AdvPages[2].TabVisible:=false;
AdvPages[3].TabVisible:=false;
AdvPages[4].TabVisible:=false;
AdvPages[5].TabVisible:=false;
AdvPages[6].TabVisible:=false;
AdvPages[7].TabVisible:=false;
AdvPages[8].TabVisible:=false;
AdvPages[9].TabVisible:=true;
AdvPages[10].TabVisible:=false;
AdvPages[11].TabVisible:=false;
AdvPages[12].TabVisible:=false;
AdvPages[13].TabVisible:=false;
AdvPages[14].TabVisible:=false;
AdvPages[15].TabVisible:=false;
ActivePageIndex:=9;
end;
end;

lo que quiero es que todos los AdvPages tengan la propiedad TabVisible:=false y que al dar click en el boton correspondiente se ponga como TabVisible:=true pero que al darle click a otro boton todos se pongan invisible a exepcion del que seleccione.

espero de su ayuda y gracias por prestarle atencion a un novato como yo.