CREATE DATABASE ¿Desde Delphi?

[defcon1_es]

Hola, una posible opción es crearla con isql desde tu programa:

Código Delphi [-]
procedure CrearBD(const Ruta, PasswordSYSDBA:string);
var
    Log: TStrings;
begin
  Log := TStringList.Create;
  try
//Localizar la carpeta donde está instalado FireBird
    Aux := IncludeTrailingPathDelimiter(ExtractFilePath(GetIBServerDataBase));
    Log.Clear;
    Log.Append('SET SQL DIALECT 1;');
    Log.Append('');
    Log.Append('CREATE DATABASE ''' + Ruta +''' USER ''SYSDBA'' PASSWORD '''+ PasswordSYSDBA +''' PAGE_SIZE 16384 DEFAULT CHARACTER SET NONE;');
    Log.SaveToFile('CreacionBD.sql');
    ShellAPI.ShellExecute(Application.Handle, nil, PChar(Aux+'bin\isql.exe'), PChar('-q -i CreacionBD.sql'), PChar(Aux+'bin'), SW_HIDE);
  finally
    Log.Free;
  end;

EDITO: Mucho mejor la solución del compañero ecfisa

[champy]

Muchísimas gracias por compartir vuestra sabiduría

Pondré en práctica ambas opciones a ver cual me gusta más.