Asignar ID despues de insert

[vicacos]

trabajo en un proyecto con delphi 7, FIBplus y Firebird 2.0 quiero agregar un numero correlativo a un campo de una tabla x (por ejemplo campo ID) de tipo smallint pero que este se agregue en el momento de confirmar el ingreso es decir no en el Inser mismo (No con un trigger before o after Insert) sino por ejemplo en el evento before post del dataset. Esto con la finalidad de no dejar huecos en la tabla y que siempre tenga numeros consecutivos 1,2,3,4...etc. Gracias por la ayuda que me puedan dar