急，特急，如何进行异常处理

Question

代码如下：
  TRY
      MSCOMM1.CommPort :=3;
  EXCEPT
  ON E :Exception do //定义E为所有异常类型
    BEGIN
      SHOWMESSAGE('无此串口，请选择其他串口!');
      EXIT;
    END
  END;
    COM11.Checked :=FALSE;
    COM21.Checked :=FALSE;
    COM31.Checked :=TRUE;
    COM41.Checked :=FALSE;
我要实现的功能是如果串口没有第三端口，则提示'无此串口，请选择其他串口!'
但我运行后，无第三端口情况下语句跳到了COM11.Checked :=FALSE;
请问如何做才能执行SHOWMESSAGE('无此串口，请选择其他串口!');
                  EXIT;

Answer 1

MSCOMM1.CommPort :=3;
这一句执行时如果没有抛出异常，那么EXCEPT块中的代码是不会执行的。

Answer 2

在MSCOMM1.CommPort :=3;后面加上一句MSCOMM1.Connect;