[cacu]

Gracias amigo guillotmarc , intente hacerme un ejemplo
pero se me pega la aimplcacion.. y alfinal no me actualiza..

Trigger:

  create  trigger eventos_empresa for new_table
            active after insert  or update or delete position o
     
           As
           begin
           post_event 'modificacion de datos'
          end

Proc.Almacenado

      create procedure sp_empresa(
                                               emp_rut varchar(14) not null,
                                               emp_nf  varchar(50),
                                               emp_gr varchar(50))
     as
     begin
      if (exists(select  ad_emp_rut from new_table where adq_emp_rut = :emp_rut))  then
      update new_table set
        adq_emp_nf = :emp_nf,
        adq_emp_gr = :emp_gr
   where adq_emp_rut = : emp_rut;
else
    insert into new_table ( columan de la tabla ) values(parametros)
suspend;
end

en delphi : Componentes
1.- IBDatabase1 <-> Ibtransaction1
2.- <-TibStroreprocedure
3 <-IBdataset1 ->DataSource1->DBgrid
4.- <-IBevents1

Con todo eto la aplicacion en el momento de inserta un nhuevo valor se
pega y al final no realiza nada

Nota : Sin IBDataSet y IBEvents1, funcionaba bien la actualizacion y la insercion , con el unico detalle que los datos insertados no se reflejan en la grilla

Espero puedas darme una mano mas....

De ante mano agradesco nuevamente el articulo que me diste
Saludos