disminuir tamaño de letra en un tabshet

[Choclito]

hola amigos como siempre decirles que el foro esta buenisimo
Mi problema es el siguiente tengo un pagecontrol donde creo dinamicamente pestañas con los nombres de medicos q tengo en un query y todo va bien pero lo que quiero es que el tamaño de letra en los tabshet sea pequeño asi para que entren todos los nombres
el codigo es el siguiente:

With modulo_cita.MDOQ_Doctor do begin
first;
while not eof do begin
Aux := TTabSheet.Create(self);
with Aux do begin

Name :='D'+Fields[1].asstring;
PageControl := PageControl1;
Caption :=Fields[0].asstring;
//size:=8;
end;
aux.Font.Size:=5;
Next;
end;
end;
PageControl1.ActivePageIndex := 0;

Como hago para que el tamaño de letra del caption de la variable aux sea mas pequeña, indicar que este codigo lo hice gracias a la ayuda del foro
Espero me puedan ayudar y muchas gracias por toda la ayuda que me brinden

[marcoszorrilla]

procedure TForm1.Button1Click(Sender: TObject);
begin
TabSheet2.Font.Size:=2;//Para el texto en el lienzo del TabSheet
PageControl1.Font.Size:=2;//Para todos los TabSheets.
end;


Un Saludo.