delphi和javascript交互

Question

用delphi编一个form。在form里面，放一个IE浏览器的窗口。在这个窗口里面有一个html页面。怎么用页面里面的javascript脚本调用delphi编的form里面编写的函数，或者怎么在页面里用javascript产生一个自定义事件然后在delphi里面捕获这个事件再进行相应的操作。 
本人刚刚开始学习delphi，但之前在vb里面实现过这样的功能，不用编写COM组件或者activeX控件javascript就可以调用vb程序中编的函数。请问这个功能在Delphi下面怎么实现？

Answer 1

http://hi.baidu.com/rarnu/blog/item/4ec80608022766d663d986ea.html

Answer 2

webbrowser有个execScript的函数的，你在这里面调用就可以了
例如web.execScript("alert('Do you wish to delete?')", "javascript");

Answer 3

function RunJs(const JsCode, JsVar: string): string;
var
  script: OleVariant;
begin
  try
    script := CreateOleObject('ScriptControl');
    script.Language := 'JavaScript';
    script.ExecuteStatement(JsCode);
    Result := script.Eval(JsVar);
  except
    Result := '';
  end;
end;