Extract metadata por código

[[Ivanzinho]]

Hola foro, quería saber si conocen alguna forma de extraer el metadata de una base de datos firebird desde código Delphi, y posteriormente crear una nueva BD ejecutando este metadata. Utilizo Delphi 7 y Firebird 1.52. El caso es el siguiente :

Tengo una aplicación en la que se pueden declarar distintas empresas a gestionar, las cuales tendrán sus propias bases de datos indepentedientes. Lo que quiero es que el usuario administrador de la aplicación pueda crear nuevas empresas y por tanto sus correspondientes BD sin la mediación de un informático.

Había pensado, en caso de que no se posible la extracción del metadata, hacer el backup/restore de una BD existente y luego vaciarla por medio de un procedimiento almacenado, pero este tiene el problema que habria que actualizarlo cada vez que se agregen o borren tablas de la BD, a no ser, que se pueda recorrer alguna tabla de sistema en donde se encuentren las distintas tablas e irlas borrando.

En definitiva, ¿que me aconsejan?.

Gracias.

Un saúdo