DELPHI如何调用页面里的JS

DELPHI如何调用页面里的JS？

var js: OleVariant str: stringbegin js := CreateOleObject(ScriptControl) // 创建组件 js.Language := JavaScript // 指定组件所使用的语言，也可以是VBScript js.AddCode(Memo1.Text) // 加入JS代码，如上面的代码 str := js.Eval(getTime())// getTime() function from JS ShowMessage(str)endMemo1.text内容function getTime(){ var d, s = "" var c = "" d = new Date() s = d.getYear() c s = (d.getMonth() 1) c s = d.getDate() c s = d.getHours() c s = d.getMinutes() c s = d.getSeconds() c s = d.getMilliseconds() return s}