delphi
create or alter procedure InsertarCampo as begin if (not exists(select 1 from rdb$relation_fields where rdb$relation_name = 'TABLA' and rdb$field_name = 'CAMPO')) then execute statement 'alter table TABLA add CAMPO integer'; end;
Espero que les sea de ayuda...
Saludox !