SPComm 在连线Com机器時，時候没办法触发 ReceiveData，后来才知道StartComm後要留點時間給它喘氣(連線)。所以加上sleep~
var
  s:Ansistring;
begin
  RepCom.StartComm;
  s := Chr(16) + Chr(4) + Chr(1) ;
  sleep(50);
  RepCom.WriteCommData(PAnsiChar(s),Length(s));
end;