但是后来我去掉了一个，采用调用子界面的那个控件，
还是不行啊？我把程序贴出来，你帮我看看好吗？
procedure senddata;
var
i:integer;
commflg:boolean;
begin
commflg:=true;
for i:=1 to 6 do
begin
if not suozitlw.comm1.writecommdata(@sendbuf,1) then
begin
//suozitlw.comm1.stopcomm;
commflg:=false;
break;
end;
//发送时字节间的延时
sleep(2);
end;
if not commflg then messagedlg('发送失败 !' ,mterror,[mbyes],0);
end;
procedure TForm1.LMDButton15Click(Sender: TObject);
begin
sendbuf[1]:=byte($ff); //帧头
sendbuf[2]:=byte($01); //命令号
sendbuf[3]:=byte($ff);
sendbuf[4]:=byte($ff);
sendbuf[5]:=byte($01);
sendbuf[6]:=byte($f0); //帧尾
senddata;//调用发送函数
end;//以上为主程序里发送握手信号,发送失败
procedure senddata(lth:longint);
var
i:integer;
commflg:boolean;
begin
viewstring:='';
commflg:=true;
for i:=1 to lth do
begin
if not suozitlw.comm1.writecommdata(@sbuf,1) then
begin
commflg:=false;
break;
end;
//发送时字节间的延时
sleep(2);
viewstring:=viewstring+inttohex(sbuf,2)+'';
end;
viewstring:='发送'+ viewstring;
suozitlw.memo1.lines.add(viewstring);
suozitlw.memo1.lines.add('');
if not commflg then messagedlg('发送失败 !' ,mterror,[mbyes],0);
end;
procedure Tsuozitlw.LMDButton1Click(Sender: TObject);
var
reg:tregistry;
i:integer;
a0,a1,a2,a3,a4,a5,a6,a7: string;
begin
for i:=0 to 7 do
begin
if (stringgrid1.cells[1,i]='') then
stringgrid1.cells[1,i]:=stringgrid1.cells[0,i]
end;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('/Software/henji/cc', True) then
begin
Reg.WriteString('a0',stringgrid1.cells[1,0]);
Reg.WriteString('a1',stringgrid1.cells[1,1]);
Reg.WriteString('a2',stringgrid1.cells[1,2]);
Reg.WriteString('a3',stringgrid1.cells[1,3]);
Reg.WriteString('a4',stringgrid1.cells[1,4]);
Reg.WriteString('a5',stringgrid1.cells[1,5]);
Reg.WriteString('a6',stringgrid1.cells[1,6]);
Reg.WriteString('a7',stringgrid1.cells[1,7]);
end;
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
sbuf[1]:=byte($aa); //帧头
sbuf[2]:=byte($bb);
senddata(2);//发送成功
form1.show;
close;
end;
请高手帮忙看一下，到底是什么原因啊？对串口方面的基础知识也不太动，
这个控件也不太会用，帮忙指点一下吧，谢谢
