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