Ajuda com Interbase

[Rafosow 0]

Boa noite pessoal, estou desenvolvendo um projeto para uso pessoal em Delphi 2010 + Interbase e to com um pequeno problema com a criação da TRIGGER para efetuar o AUTOINCREMENTO do banco de dados no Interbase 6.

 

O Código da criação da tabela é esse:

 

CREATE TABLE TBL_PAIS

(

IDPAIS INTEGER NOT NULL,

PAIS VARCHAR(100) NOT NULL,

SIGLA VARCHAR(3) NOT NULL,

DDI VARCHAR(3) NOT NULL,

CONSTRAINT PK_PAIS PRIMARY KEY (IDPAIS)

);

 

O código que eu estou usando para criar a TRIGGER é o seguinte:

 

CREATE GENERATOR GEN_ID_PAIS

 

SET TERM ^

 

CREATE TRIGGER GEN_PAIS FOR TBL_PAIS

ACTIVE BEFORE INSERT POSITION 0

AS BEGIN

NEW.IDPAIS = GEN_ID(GEN_ID_PAIS,1);

END

^

Quando clico em EXECUTE QUERY (ou apertoF5) aparece a seguinte mensagem:

 

Executing of script failed

Format '%d' invalid or incompatible with argument

 

Ja procurei em vários sites, vídeos e tudo o que encontrei mas não consegui arrumar este erro :\

Se puderem me ajudar, desde ja agradeço. Um abraço!