关于第二次开发通讯控件的问题，急急请帮帮忙！

Question

我现在正在开发一个通讯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;
这是其中的一个属性的代码，别的都和它差不多！

Answer 1

很想帮你，可是我还没做过控件，很抱歉

Answer 2

这个问题拖了几天了，在线等，哪里我问的有问题，请大家指出，拜托了，帮帮我吧！