Delphi的串口WriteFile()函数为何会突然冻结,原因何在?