[TolAlik]

Вот по твой теме. Создает сразу 9 вкладок, остается под себя код оптимизировать.

Код:

var
  Page:TPageControl;

procedure TForm1.Button1Click(Sender: TObject);
  var
  i:integer;

begin
  if Page = nil then
  begin
    Page := TPageControl.Create(Self);
    Page.Parent := Self;
  end;
  for i := 0 to 9 do
    with TTabSheet.Create(Self) do
    begin
       PageControl := Page;
       Caption := 'TabSheet #' + IntToStr(i);
    end;
end;