关于delphi串口发送数据的问题（mscomm）

Question

如何做到向串口连续发送数据，比如一次发送：0x10，0x50，0x25，0x45，以前试过，每发一组数据，都只发出一个数据，其他数据发不出，这是为什么？加上延时也是一样的

Answer 1

procedure TfrmMain.SendDate();
var
    Y_num: OleVariant;
begin
    Y_num:=VarArrayCreate([0,3],VarByte );
    Y_num[0]:=Byte($10);  
    Y_num[1]:=Byte($50);  
    Y_num[2]:=Byte($45);   
    Y_num[3]:=Byte($25);  
    MSComm1.Output:=Y_num;
   while mscomm1.OutBufferCount<>0 do  //发长数据一定要这行
end;