delphi串口通信死机？

Question

我编了一个循环发送和接收判断的程序，用于串口通信， 
并设置了一个定时20秒的程序，如果20s内不满足条件1 则自动退出这个循环。使用了pcomm
 开定时器； 
repeat 
  //这个地方为什么一定要加上showmessage('')； 
  发送程序； 
  sleep(500)； 
  接收程序； 
  判断程序；//符合收敛，则置条件1标志 until 条件1；
 问题出在一定要在repeat后面加一个showmessage，否则程序必然死机。请问这是什么原因啊？showmessage只要出现，程序是不是会暂停，直到按下确定键？

Answer 1

其实不是死机, 只是不响应UI消息而已. 可以在这儿加入一行:Application.ProcessMessages();