delphi:检测当前有多少个串口可用(测试通过)