sqlcode

[Juanito-Kun]

hola que tal, estoy trabajando con Delphi 7 y Firebird 1.5..
bueno tengo el siguiente detalle..

tengo un trigger que quiero que me verifica si la llave esta duplicada si lo esta que me arroje un mensaje..

CREATE TRIGGER "tgrVerDatArea" FOR TBLCATARE ACTIVE
BEFORE INSERT OR UPDATE POSITION 0
AS
BEGIN
	 
 when sqlcode  -803 do
	  exception "VilArea";

END

VilArea es un excepcion que me tira un mensaje... lo malo es que no lo hace el trigger .. me sigue saliendo el mensaje de error por default..

que estoy haciendo mal?..