webbrowser遇上关闭脚本后 如何释放TabSheet(0分)

webbrowser遇上关闭脚本后 如何释放TabSheet
现在用EmbeddedWB,其中有一事件OnCloseQuery,也就是在EmbeddedWB被脚本关闭时执行的程序,如何在这程序中释放掉TabSheet,问题出现在条件的如何判断了!
procedure TForm1.EmbeddedWBCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
i: integer;
Sheet: TdxTabSheet;
begin
for i := PageControl.PageCount-1 downto 0 do
begin
Sheet := PageControl.Pages ;
if ????????????????? then //这里如何判断条件呢
begin
Sheet.Parent := nil;
Sheet.Free();
end;
end;
end;
希望有人能够帮到我,将感激不尽.....
我已经没有分了 ,都花光了 有的时候一定还