delphi中用mscomm做串口通讯 怎么选择串口？

我用checkbox1添加了com1 com2 可是程序运行以后没法用checkbox1选串口
改怎么办啊？

procedure TForm1.FormCreate(Sender: TObject);
begin
begin
checkbox1.Checked:=true;

combobox1.Items.add('com1');
combobox1.Items.add('com2');
combobox1.Text:=combobox1.Items[1];

i:=combobox1.Text;

if i='com1' then
mscomm1.CommPort:=1;
if i='com2' then
mscomm1.CommPort:=2;
end;
if mscomm1.portopen=false then
begin
mscomm1.Settings:='9600,n,8,1';
mscomm1.portopen:=true;
end;
mscomm1.OutBufferCount:=0;
mscomm1.inBufferCount:=0;

end;

谢谢
错了 是用combobox1添加的 我打错了

关于vb中用MSCOMM控件通讯的问题 delphi中用到的英文 如何在DELPHI中用IdUDPServer发送消息? delphi 中用adoquery做循环从一个表中读数字向另一个表中插入出错 delphi做电子地图 delphi sql 怎么做？ delphi中用ado连接sql数据库的问题？ delphi中用DBEDIT 同时显示表中的两条数据 如何在DELPHI中用程序控制报表打印要素的位置 Delphi中用来截取字符的函数,以及使用方法?