调用一个javascript函数(50分)

在Form中加入一个WebBrower和button，在WebBrower中显示一个网页，
网页中有一个用javascript编的函数 AFun,
function AFun()
{
...
}
如何做在Delphi中按button后，调用这个函数？

在你的单元中增加引用MsHTML ，
调用下面的代码
procedure TForm1.Button1Click(Sender: TObject);
var IHtmlWin:IHTMLWindow2;
IHtmlDoc:IHtmlDocument2;
begin
IHtmlDoc:= WebBrowser1.Document as IHtmlDocument2 ;
IHtmlWin:=IHtmlDoc.parentWindow;
IHtmlWin.execScript(AFun();','javascript');
end;

IHtmlWin.execScript(AFun();','javascript');
三个引号？

NoSwing,真是厉害，在AFun();前面加个引号就行了！
不过，还有两个问题不能解决，
1是总是得不到AFun()的返回值，
2是当AFun()是这个函数时
document_onkeydown()
{
var direction =event.keyCode
。。。
}
//document_onkeydown()是当按下键时的事件响应函数

会报错“缺少对象”,看样子是缺少event对象，请教这种情况如何解决呢？