Hola Mauro, llego un poco tarde, por ahi ya lo resolviste pero aca te constesto.
Primero creamos el genrador:
Código SQL
[-]CREATE GENERATOR INC_GENERADOR;
luego procedimiento almacenado :
Código SQL
[-]CREATE PROCEDURE VALOR_GENERADOR RETURNS (COD INTEGER)
AS
BEGIN
COD = gen_id (INC_GENERADOR, 0);
END^
y luego para leer el valor utilizamos el componente TIBStoredProc, y usamos este código:
Código Delphi
[-]
Proc_Valor_Generador.ExecProc;
Num := Proc_Valor_Generador.ParamByName('COD').AsInteger;