void __fastcall TMainForm::MSCommComm(TObject *Sender)
{
     char Rx_Buff[0];
OleVariant s;
     Byte ss;

     s = MainForm->MSComm->Input;
     ss = s.GetElement(0);

     Rx_Buff[0] = ss;
     MainForm->RecriveMemo->Lines->Add(Rx_Buff);
}

原本 InputMode = 0 ,会有些值无法马上执行 MSCommComm ,现在 InputMode = 1 ,就可以了,不过当资料连续送时会有问题,
资料: “1234”  => 在RecriveMemo上可以看见1 2 ,但 3 4不见了,再次送”1234”时会看见之前的3 4.
如果资料是 “1” “2” “3” “4” ,不要连续送出就行……