Fórum Trigger nao funciona! #150331

Olá p/ tds,

Eu criei um trigger p/ fazer um incremento automático no campo código do meu cadastro.
O problema é q ele ñ está funcionando. Abaixo os códigos:

Create Generator Codigo_Paciente;
Set Generator Codigo_Paciente to 0;
Set Term ^;
Create trigger
Gatilho_Codigo_Paciente for Paciente Before Insert as
begin
New.Codigo=Gen_id(Codigo_Paciente,1);
end ^
set term;^

Alguem tem alguma idéia do q está acontecendo? Existe a necessidade de
setar
alguma propriedade do campo q irá receber o código automático?
Detalhe: trabalho c/ Delphi 7, IB 6 e DBExpress e é a 1ª vez q monto um
trigger.
Qquer ajuda será bem vinda...