disminuir tamaño de letra en un tabshet
 

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:

Código Delphi [-]
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

Código Delphi [-]
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.