急求例子:activeXForm如何获取网页上的数据？？

我用Delphi６.0写了一个activeXForm，上面有一个Edit1的文本框，然后在一个网页中调用了这个activeXForm，网页上也有一个文本框，现在想实现：网页文本框中的内容可以在按一个按纽后传入到activeXForm上的文本框中显示!
    我试着在activeXForm的type library里面给activeXForm加上一个Method:set_edit(const Value :WideString);
    然后在ＰＡＳ文件中生成了下面的方法：
procedure TactiveXForm.set_edit(const Value: WideString);
begin
  edit1.Text:=value;   //这句是我加上去的
end;编译成ＯＣＸ文件给网页调用，但是文本框中没有显示出我给赋的值！！！！
网页代码如下：
<SCRIPT language="VBScript">
    Sub some_name
    test.Set_Edit("haha..Butterfly in  the sky!")
    End Sub
</Script>
<OBJECT
          id=test
  classid="clsid:6EC854A7-BB56-4DDB-952A-29F6B523F284"
  codebase="http://localhost/dzsqz/ocx/prj_ekeygl.ocx#version=1,0,9,0"
  width=445
  height=309
  align=center
  hspace=0
  vspace=0
>
</OBJECT>
请高手指点，如有例子参考那就更好，先谢过了！！很急的问题，下周要交货的，谢谢了．