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