problema al crear tabsheet

[Choclito]

te cuento q ahora probe en un boton q puse en el form y tampoco no da
el codigo es el siguiente:

Código Delphi [-]
procedure TF_Cita.Button2Click(Sender: TObject);
var Aux:TTabSheet;
begin
modulo_cita.MDOQ_Doctor.Open;
while modulo_cita.MDOQ_Doctor.Eof of
begin
 Aux := TTabSheet.Create(self);
     Aux.Name :=modulo_cita.MDOQ_Doctor.Fields[0].asstring;
     Aux.PageControl := PageControl1;
     Aux.Caption :=modulo_cita.MDOQ_Doctor.Fields[1].asstring;;
     aux.Visible:=true;
     PageControl1.ActivePageIndex := (PageControl1.PageCount - 1);
     modulo_cita.MDOQ_Doctor.Next;
end;
end;

hay otra forma de hacer ??? te estare agradecido por tu ayuda