[[eduarcol]]

En el siguiente codigo solo deberas cambiar la variable RutaBd.

Código Delphi [-]
procedure CrearBD;
var
   DataBase: TIbDataBase;
begin
   DataBase := TIbDatabase.Create(Application);
   try
      //Configura el objeto DataBase
      Database.DatabaseName := RutaBD;
      Database.SQLDialect := 3;
      with Database.Params do
      begin
         Clear;
         Add('user ''SYSDBA''');
         Add('password ''masterkey''');
         Add('page_size = 8192');
         Add('default character set ISO8859_1');
      end;
      Database.CreateDatabase;
   finally
      FreeandNil(DataBase);
   end;
end;