Il faudrait utiliser le composant TUIBConfig et sa méthode SetReadOnly pour mettre la base en lecture seule ou le contraire.