Delphi：WebBrowser在尝试执行JavaScript时会关闭程序吗？

Question

我正在尝试在WebBrowser上执行JavaScript 这是我试图做的代码：

procedure ExecuteJavaScript(S: string);
var
  Doc: IHTMLDocument2;      
  HTMLWindow: IHTMLWindow2; 
  JSFn: string;
begin
  Doc := Form1.WebBrowser1.Document as IHTMLDocument2;
  if not Assigned(Doc) then Exit;
  HTMLWindow := Doc.parentWindow;
  if not Assigned(HTMLWindow) then Exit;
  try
    JSFn := s; 
    HTMLWindow.execScript(s, 'JavaScript');
  except
    ShowMessage('Didnt work');
  end;
end;

当我尝试执行它时，整个程序关闭！
我也尝试了here的代码，但同样的事情发生了！

我怀疑问题实际上在这里：HTMLWindow := Doc.parentWindow;
但是我不知道如何解决它？

请帮忙！感谢。