高手救命 关于串口通信的问题

Question

//前面已经对abSendBuf根据表里的纪录进行赋值 abSendBuf是一个array of byte类型  
i:=28+SetDataTable.RecordCount*2 ;
  abSendBuf[i+1] :=My_SetUid(abSendBuf) ;
  abSendBuf[i+2] := byte($7e) ;
  DataLong:=i+2 ;
  //上传数据
  PurgeComm(ahCom[iPortNo],PURGE_TXCLEAR );
  //for i:=1 to DataLong do
  //一个一个字符发送
  //begin
    //m:=abSendBuf[i] ;
    //BsuccessFlag:=WriteFile(ahCom[iPortNo],m,1,nBytesWrite,nil) ;
  //end;
  WriteFile(ahCom[iPortNo],abSendBuf,DataLong,nBytesWrite,nil);
我想把整个数组的内容传送过去，如果数组大的话，通过串口调试我只能接收到前面的一部分
小的数组就可以接收到全部 
如果用注射部分按一个一个字节传送就可以接收到全部 可是我的接收程序需要接受一个字节数组
求求大家帮帮忙？

Answer 1

begin
  m:=abSendBuf[i] ;
  BsuccessFlag:=WriteFile(ahCom[iPortNo],m,1,nBytesWrite,nil) ;
  sleep(100);  //在这加上这句试试看
end;

Answer 2

用ktp(无奈) ( ) 信誉：100 的方法成了没有