SPComm的问题，请大虾解决,急！急！急!十万火急！！！

Question

我的怎么跟你相反啊 :)
我可以接收数据，但是发送数据有问题，例如
procedure TForm1.Button1Click(Sender: TObject);
begin
if i=1 then
        begin
        Comm1.StartComm;
        i:=0
        end;
//i避免重复打开串口
sbuf[1]:=byte($06); //帧头
sbuf[2]:=byte($22); //命令号
sbuf[3]:=byte($03);
sbuf[4]:=byte($04);
sbuf[5]:=byte($77);
sbuf[6]:=byte($10); //帧尾
//sbuf[1]:='a';
//sbuf[2]:='|';
//sbuf[3]:='a';
//sbuf[4]:='f';
//sbuf[5]:='a';
//sbuf[6]:='r';senddata;//调用发送函数end;
第一次就不能发数据，以后就可以了 ,怪了