Crear una base de datos Firebird por código con los ZEOS

[rrf]

Hola de nuevo.

Ecfisa, el manual que me indicaste tenía la solución a la creación de una BD Firebird por código con Zeos.

Aquí está una adaptación de ese código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  aa : string ;
begin
         // Crea la Base de Datos Firebird, ...
  aa := ExtractFilePath ( Application.ExeName ) + 'base_datos.fdb' ;

  ZConnection1.Database := aa ;
  ZConnection1.Protocol := 'firebird-2.1';
  ZConnection1.Properties.Add (
    'CreateNewDatabase=CREATE DATABASE ' + QuotedStr ( aa )
  + ' USER  ' + QuotedStr ('sysdba') + ' PASSWORD  ' + QuotedStr ('masterkey')
  + ' PAGE_SIZE 4096'
//  + ' DEFAULT CHARACTER SET ISO8859_1'
  );

  ZConnection1.User     := 'sysdba' ;
  ZConnection1.Password := 'masterkey' ;

  ZConnection1.Connect;

end;

Problema resuelto y dejo el código por si le sirve a alguien más.

Gracias Casimiro y Ecfisa.