[Ruben_Cu]

Hola Michel, se supone que ya tienes el PageControl en un formulario, entonces el código siguiente te crea 10 TabSheet al hacer clic en el botón:

procedure TForm1.Button1Click(Sender: TObject);
var i:Byte;
begin
        for i:=1 to 10 do
        with TTabSheet.Create(Self) do
        begin
                PageControl := PageControl1;
                Name:='Mitab'+IntToStr(i);
                Caption := name;
        end;
end;

Espero te valga el ejemplo.
Saludos