Crear BD mysql en tiempo de ejecucion

[vicvil]

Que tal
voy a comenzar a utilizar mysql con delphi 5 y necesito realizar una aplicacion que pueda crear una BD para cada empresa ingresada (sistema multiempresa).
¿Como se crea la BD y que componente es conveniente usar?

[[poliburro]]

A mi me gusta mucho ADO, pero igual hay más opciones.

Create Database "Nombre"

[roman]

Dicho así a bote pronto, se me ocurre lo siguiente, partiendo de la base de una empresa ya hecha:

1. Obtienes una lista de las tablas que conforman la base con la sentencia
   

   Código SQL [-]
   show tables from base

2. Para cada nombre de tabla obtienes su estructura con
   

   Código SQL [-]
   show create table tabla

   
   Esto te devuelve un único registro cuyo segundo campo es la sentencia SQL necesaria para crear la tabla.
   
   
3. Creas la base nueva
   
   
4. Aplicas las sentencias obtenidas.

Dependiendo de qué componentes uses para conectar con MySQL es posible que dispongan de métodos más sencillos.

// Saludos

[vicvil]

Voy a usar los componentes zeos.
¿Como podria crear la BD con estos componentes?

[[cHackAll]]

Código Delphi [-]
ZQuery1.SQL.Add(' ... '); //SI
ZQuery1.ExecSQL;