]没有仔细看，不过感觉下面代码有点问题procedure Tform1.NewWindow2Event(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);begin CreateNewTabBrowser(TabSheetEx.EWB.LocationURL); PageControl1.ActivePage := TabSheetEx; ppdisp := TabSheetEx.EWB.Application;end;这里的 TabSheetEx.EWB.LocationURL 你没做有效性判断，如果你能够在访问之前检查一下，记录到日志里，我想会很容易发现问题的补充一下，问题也许出在TabSheetEx变量上，你每次新建TabSheetEx之后，原来的就丢掉了当你把这个sheet关闭之后，TabSheetEx就是无效的了，你再去引用他就会出错。我没有环境，建议你单步跟踪一下看看。 if PageControl1.PageCount<>0 then PageControl1.Pages[PageControl1.PageCount-1].Free;[red] TabSheetEx := TTabSheetEx.Create(PageControl1);[/red] with TabSheetEx do