高分请教一个简单的问题!

Question

我在写浏览器，我为了实现屏蔽黑名单的功能，而这样做：
procedure TForm1.EmbeddedWB1WindowClosing(Sender: TObject;IsChildWindow: WordBool; var Cancel: WordBool);
begin
 //if something is true then do
(TControl((Sender as TEmbeddedWB)).Parent as TTabSheet).PageControl:=nil;
end;这样做是在判断访问的网址是黑名单中的后， 就自动释放掉那个窗口。可是这个办法在98下会出现“未指定的错误”，在2000/XP下能正常关闭窗口，WinMe没有试过。不知道有什么办法？

Answer 1

if TControl((Sender as TEmbeddedWB)).Parent<>nil then
   (TControl((Sender as TEmbeddedWB)).Parent as TTabSheet).Free;