VaComm控件支持COM10以上串口的方法

VaComm2005的代码对COM口的支持不能超过COM10，根据Windows对COM10以上的串口的打开方法，需要修改VaComm的源码：

将函数 TVaCustomComm.GetDeviceName的实现修如下：

function TVaCustomComm.GetDeviceName : string;
begin
  if PortNum <= 10 then
    Result := format(DeviceName, [PortNum])
  else
    Result := format('\\.\COM%d', [PortNum]);
end;

重新编译然后安装库即可