Coloca en la aplicación un Componente ApplicationEvents de la pestaña Additional y un memo y en el evento OnException coloca lo siguiente:
Código Delphi
[-]
Memo1.Lines.Add(Format('Classname = (%s)', [E.ClassName]));
Memo1.Lines.Add('Error: ' + E.Message);
Cuando llegues aquí es que tienes una excepción que no has capturado.
Aquí puedes comprobar si la excepción es de tipo EComport y hacer lo que consideres oportuno.