用Delphi,如何写一段监视串口的程序,谢谢