Como creo una base de datos por Delphi

[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;