Numero de Error con try except

[RyCk]

Try
conect.User:=usuario.Text;
conect.Password:=password.Text;
conect.Connected:=TRUE;
Elmenu.menu.ShowModal;
except
on E : Exception do
ShowMessage(E.Message );
end;

El siguiente codigo es un ejemplo, lo que quiero saber es si se puede en vez de ver el mensaje de error capturar el numero del error que la base de datos me devuelve y si es asi como podría hacerlo quiero manejar todos los errores de la aplicación dentro de un TXT para manejarlos de una manera más elegante con el mensaje y su traduccion en español de antemano les agradesco y disculpen si repito el hilo.