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