Ny side i PageControl?

Måske med :
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 0 do
    with TTabSheet.Create(Self) do

    begin
      PageControl := PageControl1;
      Caption := \'TabSheet\' + IntToStr(i);
    end;
    end;

/DarkSide