比如定义一个method。先选中一个Class（MyClass），点击Add method按钮，
即新增一个方法接口（MyFunc），在右边的Parameters页，Add一个参数strIn，类
型设为BSTR，入口方式为in；再增加一个参数strReturn，类型也为BSTR，入口方式
为out,retval。注意，这里如果不设为retval参数也可以返回，但是以procedure的
参数方式而非function的result方式返回。按下Delphi的Save All，Delphi将根据
Type Library的信息，自动地产生出MyClass的Interface，及对应的对象代码，在
function Myfunc中，增加一句Result := '输入信息为：'+strin。
开始测试使用,先用regsvr32注册，或按下Delphi菜单中的Register ActiveX，
然后新开一个工程，调用过程：
procedure test;
var
TestObj :variant;
begin
TestObj := CreateOLEObject('生成的ActiveX名称.MyClass');
ShowMessage(TestObj.Myfunc('测试'))
end;
