Más o menos:
Código Delphi
[-]
procedure TfrmMdi.ApplicationEvents1Exception(Sender: TObject; E: Exception);
var strDebug:string;
strMessage :string;
begin
strMessage := E.Message;
if (e is EMDOError) then
begin
strDebug := 'SqlCode: ' +inttostr(EMDOError(E).SQLCode) + espacio + E.ClassName;
dtm.log.Add(strMessage + saltolinea + strDebug);
end;
ShowMessage('Al usuario: ' + strMessage + saltodoble +
'Mensaje de Debug: ' + strDebug + saltodoble );
end;
Por internet existen listados con el sqlcode, mensaje y breve significado. busca por fb_1_5_errorcodes.pdf
Saludos