Esta trigger não funciona

Pessoal

A seguinte trigger abaixo não está funcionando. Fiz com objetivo de dar um update para e com situacao_contapagar

CREATE TRIGGER BU_SITUPAGAR FOR CONTAPAGAR
ACTIVE BEFORE UPDATE POSITION 0
AS
BEGIN

IF (NEW.VLPAGO_CONTAPAGAR IS NULL) THEN
BEGIN

UPDATE CONTAPAGAR CP SET CP.SITUACAO_CONTAPAGAR = 2
WHERE NEW.CDCONTA_CONTAPAGAR = CDCONTA_CONTAPAGAR;

END
END

O que pode ser ??


Sou usuário de Delphi 7 + Interbase 6.0 + conexão dbexpress

Rogério