[Fita]

Hola a todos...

El problema que tengo y no puedo encontrar el error es el siguiente:
(Trabajo con Delphi7, Firebird 1.5.3 y componentes FIBPlus)

Tengo definido este trigger:

CREATE TRIGGER "AsuntoNuevo" FOR FAM003 ACTIVE
AFTER INSERT POSITION 0
AS
BEGIN
post_event('IngAsunto');
END

Inserto un registro en la tabla FAM003:

dm.tr.startTransaction; // data module
Fam003.insert;
.
.
(Valores de los campos...)
.
.
Fam003.post;
dm.tr.commit;
Fam003.FullRefresh;

La Propiedad ReceiveEvent de la Tabla Fam003 tiene IngAsunto

El componente EventAlerter tiene este evento que nunca llega a ejecutarse

if EventName = 'IngAsunto' then
begin
MessageDlg('Nuevo registro ...', mtWarning, [mbOK], 0);
end;

Mucho agradeceré si alguien puede ayudarme
Saludos