Cómo mostrar el error de que la BD de datos está siendo utilizada por otra aplicación

[[Lepe]]

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;
//  else
    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