Yo insisto en mi método, ya que sería extremadamente fácil, te pongo un ejemplo con generadores, que es más cortito:
Código Delphi
[-]
const sql = ' Create generator id%s ; ';
var Tablas:TStringlist;
i:integer;
begin
tablas := TSTringlist.create;
database1.GetTablenames(tablas);
for i:=0 to tablas.count-1 do
script1.script.add(Format(sql, [tablas[i]]);
script1.Execute; tablas.free;
end;
El script quedaría así:
Código SQL
[-]
Create generator idNombretabla1 ;
Create generator idNombretabla2 ;
Create generator idNombretabla3 ;
Create generator idNombretabla4 ;
En lugar de añadir las cosas directamente al script, podemos tener un memo, donde verificamos las cosas e incluso podamos añadir más sentencias.
En este programa solo necesitas un Tdatabase, un transaction y tu ventana principal con el memo.
Tendrías las mismas posibilidades que en IB Expert, creando, eliminando triggers, etc.
Saludos