procedure TForm1.Timer2Timer(Sender: TObject);
var   
    I,N: INTEGER;
begin   TIMER2.Enabled:=FALSE;   
    str:=hexstrtostr(data.Items.Strings[line]);  //data是listbox   
    line:=line+1;                                //line是listbox的行数 全局变量前面已经赋值为0了
    N:= length(str);                             //N是一行中的字符个数
    for i:=1 to N do   
    begin   
        buf[i] := strtoint(strtohexstr(str[i])); //把每一行中的字符存到发送缓冲区  
    end;   
    timer1.Enabled:=true;
end;  

procedure TForm1.Timer1Tim(Sender: TObject);
begin     
    TIMER1.Enabled:=FALSE;
   
    ToWrite := CurrentDevice.Caps.OutputReportByteLength;     
    CurrentDevice.WriteFile(Buf, ToWrite, Written);     //发送一行数
   
    CurrentDevice.OnData := ShowRead;                   //发送出去后等待接收到后读出返回来的数据
    timer2.Enabled:=true;
end;  

需要实现发送完第一行后接着发送第二行 用了line：=line+1
为什么执行data中第一行是对的 到了第二行和第二行以后就不对了？

各位大哥帮帮小弟！

[ 本帖最后由 lin8812290 于 2011-4-8 12:23 编辑 ]