procedure TForm1.BitBtn1Click(Sender: TObject);
var
 t:ttabsheet;
 i:integer;
begin
  i:= pagecontrol1.PageCount + 1;
  t := ttabsheet.Create(self);
  t.PageControl := pagecontrol1;
  t.Caption := 'Новая страница ' + inttostr(i);
  pagecontrol1.ActivePage := t;

end;                                                                                                                                                  

                                                                                                                                    Вот и всё. ничего сложного. Теперь вы сможете исспользовать этот код например в Браузере.