Año en firebird

[gendelphi]

Código SQL [-]
create trigger empresas_ai0 for EMPRESAS active after insert position 0
as
declare variable anyo integer;
begin
SELECT EXTRACT(YEAR from CURRENT_DATE)
FROM RDB$DATABASE
into :anyo;

insert into ejercicios
(ejercicio,empresa,codigo)
values
(:anyo,new.codigo,0);
end