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
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'
);
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.