[ContraVeneno]

Código Delphi [-]
try
//intrucción que genere la exception
except on E:Exception do begin
showmessage('El error tipo:'+E.classname+' con el mensaje: '+E.Message+
'con el número: '+E.ErrorCode);
end; //except
end; //try

No he probado el ErroCode en todas las excepciones, al menos EDBEngineError si te da un ErrorCode.