Crear base de datos en tiempo de ejecución

Te paso el código, que considera agregar el alias al BDE.
Debes agregar a la forma un TIBDatabase, un TSession y varios edits para los parámetros, o bien, pasarle las variables con la información. El TRadioButton (CreateNewAliasRadio) es usado para lo del alias.
procedure TCreateIBDataseForm.CreateDatabase;
var
Params: TStringList;
begin
try
IBDatabase.DatabaseName := IBDBPathEdit.Text;
IBDatabase.Params.Clear;
IBDatabase.Params.Add('USER "' + UsernameEdit.Text + '"');
IBDatabase.Params.Add('PASSWORD "' + PasswordEdit.Text + '"');
IBDatabase.Params.Add('PAGE_SIZE ' + PageSizeEdit.Text);
IBDatabase.CreateDatabase;
if CreateNewAliasRadio.Checked then
begin
Params := TStringList.Create;
try
try
Params.Add('SERVER NAME=' + IBDBPathEdit.Text);
Params.Add('USER NAME='+ UsernameEdit.Text);
Session.AddAlias(AliasNameEdit.Text, 'INTRBASE', Params);
Session.SaveConfigFile;
except
on E: Exception do
MessageDlg('Se generó un error mientras se intentaba crear la nueva base de datos'+#13+ E.Message, mtError, [mbOK], 0);
end;
finally
Params.Free;
end; {try..finally}
end; {if CreateNewAliasRadio}
Close;
except
on E: Exception do
begin
if MessageDlg('Ocurrió un error: ' + #13 + e.Message + #13 +
'¿Desearía intentarlo de nuevo?',
mtError, [mbYes, mbNo], 0) = mrNo then
Exit;
try
DeleteFile(IBDBPath.Text);
except
end;
try
Session.DeleteAlias(AliasNameEdit.Text);
Session.SaveConfigFile;
except
end;
end;
end; {try..except}
end; {OKButtonClick}