Como creo una base de datos por Delphi

[Shidalis]

Ok muchas gracias; y sera posible pasarle a esta tira sql el nombre de la base de datos como parametro, es decir, algo como esto:

 mi_base:= Nombre_BaseDatos+'1';
 create database if not exist mi_base;

ya que yo hago este procedimiento varias veces en tiempo de ejecucion

[Shidalis]

ok ya no tienes porque responder ya logre hacerlo de esta forma:

  mi_base:= Nombre_BaseDatos+'1'; 
   query1.Close;
   query1.SQL.Add('create database if not exists');
   query1.SQL.Add(mi_base);
   query1.ExecSQL;

[roman]

Aunque por claridad yo preferiría algo como

Código Delphi [-]
const
  fmtCreateDatabase = 'create database if not exists %s';

begin
  Query.SQL.Text := Format(fmtCreateDatabase, mi_base);
end;

// Saludos

[Shidalis]

Muchas Gracias por tu Ayuda Roman