problema al crear tabsheet

[Choclito]

hola amigos del foro mi problema es el siguiente:
En tiempo de ejecucion quiero crear n tabshet que la creacion sea la cantidad de registros de un query
el codigo en el oncreate del form es el siguiente

Código Delphi [-]
while modulo_cita.MDOQ_Doctor.Eof do
begin
 Aux := TTabSheet.Create(self);
     Aux.Name := modulo_cita.MDOQ_Doctor.Fields[0].asstring;
     Aux.PageControl := f_cita.PageControl1;
     Aux.Caption := modulo_cita.MDOQ_Doctor.Fields[1].asstring;;
     aux.Visible:=true;
     f_cita.PageControl1.ActivePageIndex := (f_cita.PageControl1.PageCount - 1);
     modulo_cita.MDOQ_Doctor.Next;
end;

pero no hace nada... quiero q en cada tabsheet este el nombre del doctor pero no hace nada no crea ni un tabsheet, quiero crear n tabsheet pero no hace nada , como arreglo esto?????
como siempre les estare muy agradecido por su valiosa ayudaaaaaa