[roman]

Código Delphi [-]
procedure TDM.err_GeneralFIBErrorEvent(Sender: TObject; ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean);
begin
  // Caso de perder conexión con el servido
  if KindIBError = keLostConnect then
  begin
    // //
  end;

  if KindIBError = keUniqueViolation then
  begin
    // //
  end;

  if KindIBError = keSecurity then <--- Este es el error que salta.
  begin
    Mensaje('Error de seguridad al abrir tablas de la BD.');
    // //
  end;
end;

// Saludos