程序报错 提示“name not found accessing external object property commport at line 11 ”解决方案

程序报错 提示“name not found accessing external object property commport at line 11 ”
//程序执行报错

string str
long cdir,cport
cdir=1
if rb_1.checked=true then cdir=0
if rb_2.checked=true then cdir=1
cport=1
if rb_3.checked=true then cport=1
if rb_4.checked=true then cport=2
if rb_5.checked=true then cport=3
if rb_6.checked=true then cport=4
ole_1.object.commport=cport
str=""
str=str+"size"+sle_1.text+","+sle_2.text+"~r~n"
str=str+"cls"+"~r~n"
str=str+"speed"+sle_3.text+"~r~n"
str=str+"density"+sle_4.text+"~r~n"
str=str+"direction"+string(cdir)+"~r~n"
str=str+"reference"+sle_5.text+","+sle_6.text+"~r~n"
str=str+"GAP"+sle_7.text+","+sle_8.text+"~r~n"
return str

------解决方案--------------------
大小写吧
ole_1.object.CommPort = cport
------解决方案--------------------
仔细查查你那OLE的资料，看有没有该commport属性什么的。
------解决方案--------------------
有没有在你的工具栏上点BROSWER按钮
弹出来的东西选到OLE页上看不就知道了。
------解决方案--------------------
选中该OLE 点击Properties 点击OLE Control Properties 点击 帮助，
(如果你在安装OFFICE 的时候完全完装了)
里面有该控件的相关属性，函数等的介绍。
------解决方案--------------------
ole_1.object.commport=cport 这个是什么属性，干什么用的，既然程序里已经报告没有这个属性了，估计就应该是没有了