[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:

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