[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