[firebase-br] Inserir um novo campo em todas as tabelas

[Fausto]

Bom dia amigos..

Devido a um mal planejamento no design de uma base de dados, cheguei a 
conclusão que preciso inserir um campo "CD_EMPRESA INTEGER NOT NULL" em 
todas as tabelas de minha base e ainda por cima criar um indice para 
este campo, existe alguma forma de fazer isso via script?
E ainda neste script eu gerar um trigger para ser disparado no before 
insert de cada tabela este trigger iria simplesmente gravar o codigo da 
empresa neste campo.
Explico. o sistema,ainda em desenvolvimento, passou a ser multi-empresa, 
portanto vou precisar deste novo campo para identificar os registros de 
cada empresa.
Estou utilizando Delphi 7 +DBExpress+Firebird 1.53 com RemObjects.
Grato
Fausto