Delphi - Interbase y fechas

Quiero crear un trigger que compare si el año de la fcha de un registro es menor del año actual. El año de la fecha del registro lo obtengo mediante Extract (year...., pero ¿ como puedo extraer el año actual de Now o Date para que sirva para cualquier año? El extract me da un error al grabar el trigger ya que no lo ejecuta sobre un campo de una tabla. y no puedo pasar parámetros a un trigger.