为什么还是用IE来打开窗口？(30分)

我写了一个同窗口多页面的浏览器，为什么有时候在网页上点击链接，还是会用IE来打开，可是有时又不会这样！
代码如下:
procedure TMainForm.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:=webbrowser1.onnewwindow2;
pagecontrol1.ActivePage:=newtabsheet;
ppdisp:=newbrowser.Application;
end;
帮我看看吧！

newbrowser.onnewwindow2:=webbrowser1.onnewwindow2;
改为newbrowser.onnewwindow2:=WebBrowser1NewWindow2;

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := WebBrowser2.ControlInterface;
end;
在自己窗口的另一个浏览器浏览

---
http://www.8421.org

TWebBrowser.RegisterAsBrowser：＝true；
将你的设成系统默认的浏览器应该就行了

多人接受答案了。