Tratamento de excessões...

minha aplicação acessa a porta serial, e caso ocorra algum erro, como faço para descobrir q erro foi?....estou usando o seguinte código:


var
E: EComError;

try
comport1.open;
except
on EComError do
begin
case E.Message of
´Error 2´:begin
//tratamento do erro...
end;
´Error 5:begin
//tratamento do erro...
end;
end;
end;
end;



só que esse codigo gera um baita erro e trava tudo......o q estou fazendo de errado?????