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:

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

[marcoszorrilla]

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.