Como criar uma tabela contendo um campo auto-incremento no Firebird

/* criação da tabela CLIENTES */
CREATE TABLE CLIENTES(
  ID INTEGER NOT NULL,
  NOME VARCHAR(40) NOT NULL,
  EMAIL VARCHAR(40) NOT NULL
);

ALTER TABLE CLIENTES ADD CONSTRAINT PK_CLIENTES PRIMARY KEY (ID);

CREATE SEQUENCE GEN_CLIENTES_ID;
ALTER SEQUENCE GEN_CLIENTES_ID RESTART WITH 0;

CREATE GENERATOR GEN_CLIENTES_ID;
SET GENERATOR GEN_CLIENTES_ID TO 0;

CREATE TRIGGER TRIGGER_CLIENTES_BI FOR CLIENTES
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  if (NEW.ID is NULL) then NEW.ID = GEN_ID(GEN_CLIENTES_ID, 1);
END;

INSERT INTO CLIENTES(NOME, EMAIL) VALUES('OSMAR J. SILVA', 
  'osmar@arquivodecodigos.net');