capturar nro error

[Ricardo Alfredo]

Hola , una pequeña pregunta , como puedo capturar el numero de error que me envia la base de datos cuando existe uno.
ejemplo, como se el numero de error cuando el usuario se equivoca en la contraseña , yo capturo el errror asi
try
dmconexion.base_datos.Connected := True;
except
On E:Exception do
begin
MessageDlg ('Se ha producido un error al tratar de ingresar:' + #13#10 +
E.Message+ #13#10 +
', número error base datos '+IntToStr(nerror), mtError, [mbOk], 0);
end;
pero no puedo tomar el numero.