求编制多页面浏览器的思路

下面这个函数只能动态建立新的 tabsheet. 但是却没有显示网页，不知道错在哪里？
求编制多页面浏览器的思路或者源吗学习。

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
var newbrowser:twebbrowser; newtabsheet:TTabSheet;
begin
newtabsheet:=TTabSheet.Create(nil);
newtabsheet.PageControl:=pagecontrol1;
newbrowser:=twebbrowser.Create(nil);
newtabsheet.InsertControl(newbrowser);
newbrowser.align:=alclient;
newbrowser.onnewwindow2:=newbrowser.OnNewWindow2;
pagecontrol1.ActivePage:=newtabsheet;
ppDisp := newbrowser.ControlInterface;
end;