با سلام من با استفاده از یک twebbrowser کد زیر رو به منظور افزودن یک تب جدید نو شتم :
  
ATabSheet := TTabSheet.Create(PageControl1);
  
  with ATabSheet  do
  
  begin
  
    Parent := PageControl1;
  
    PageControl := PageControl1;
  
     end;
  
WeB := TWebBrowser.Create(AtabSheet);
  
 WeB.ParentWindow :=ATabSheet.Handle;
  
 web.Width:=1003;
  
web.Height:=524;
  
pageControl1.ActivePage:=ATabSheet;
  
web.Navigat('');
و به منظور نمایش میزان لود شدن صفحه از کد زیر استفاده کردم ولی این کار تنها برای اولین بار که صفحه لود می شه کاربرد داره و وقتی تب جدید ایجاد می شه دیگه progressbar1 این میزان رو نشون نمی ده لطفا راهنمایی بفرمایین:
procedure TForm5.webProgressChange(Sender: TObject; Progress,

  ProgressMax: Integer);

begin

  if Progress>0 then

  begin

    ProgressBar1.max := ProgressMax;

    ProgressBar1.Position := Progress;



  end { Progress>0 }

  else

    ProgressBar1.Position := 0

end;