procedure TDM.err_GeneralFIBErrorEvent(Sender: TObject; ErrorValue: EFIBError; KindIBError: TKindIBError; var DoRaise: Boolean);
begin
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;