Код:
procedure TForm1.Button1Click(Sender: TObject);
var
pag:ttabsheet;
webb:TWebBrowser;
begin
pag:=TTabSheet.Create(self);
pag.Caption := 'Страница'+inttostr(pagecontrol1.PageCount+1);
pag.Name:='tabsheet'+inttostr(pagecontrol1.PageCount+1);
pag.PageControl := pagecontrol1;
pag.Visible := True;
webb:=TWebBrowser.Create(self);
TWinControl(webb).Parent:=pagecontrol1.Pages[pagecontrol1.PageCount-1];
TWinControl(webb).Name:='browse'+inttostr(pagecontrol1.PageCount+1);
webb.Visible := True;
webb.Align:= alClient;
end;
и почитай про динамическое создание компонентов
