Delphi - Mensaje y código de error

Hola

Para capturar un error con el mensaje que genera Delphi lo hago así

on E: Exception do begin
showmessage ('error: '+ e.message);
end;

pero ¿cómo puedo sabes el código del error ?

Gracias

No se si esto te sirva, pero se me ocurre que puedes hacer algo como esto.

on E: EConvertError do
begin
if Pos('valid float',E.Message)>0 then
begin
MessageDlg(Copy(E.Message,1,Pos(' is not',E.Message))+'No es una cantidad válida.'+#13+#10+'Verifique por favor.', mtInformation, [mbOk], 0);
Exit;
end;
end;

Otros tipos de errores conocidos son:

EIntError
EInvalidCast
EDivByZero

entre otros... a todos ellos los puedes ver en la SysUtils.pas

saludos