关于ocx的一个问题！！(100分)

我现在正在开发一个通讯activex控件，是在vacomm这个控件的基础上，二次开发的控件要传递出devicename等vacomm1的属性。
用ActiveForm进行开发的，在类型库中添加了属性，写了get_属性名函数的代码，以及set__属性名函数的代码，但是在调试的时候，在设计器中修改开发控件的属性，竟然毫无作用，只有在运行阶段，设置的话才其作用。这到底是为什么呢？请帮帮忙！！！
function TTSMSInfer.Get_CommName: WideString;
begin
RESULT:=VACOMM1.DeviceName;
end;

procedure TTSMSInfer.Set_CommName(const Value: WideString);
begin
if value='COM1' then vacomm1.DeviceName:='COM1';
if value='COM2' then vacomm1.DeviceName:='COM2';
if value='COM3' then vacomm1.DeviceName:='COM3';
if value='COM4' then vacomm1.DeviceName:='COM4';
if value='COM5' then vacomm1.DeviceName:='COM5';
if value='COM6' then vacomm1.DeviceName:='COM6';

end;
这是其中的一个属性的代码，别的都和它差不多！

是不是属性定义位置不对呀

我这样做的
先新建一个activeform,然后打开类型库，然后新建一个属性，刷新，然后在实现文件中编写get_属性名函数的定义，应该没问题吧？

你看看type library页该属性的flags的选项。

我的flags选项中一个都没有选

这样对吗?
我没有修改过!