Con RDBMS Firebird deberías usar un generador y un trigger basado en él. Otra solución es consultar el generador para extraer el nº que guarda e incrementarlo para luego colocarlo en el Insert/Append que esté haciendo. Si se guarda el dato, entonces se incrementa el generador.
En comandos ISQL crearás un generador usando: CREATE GENERATOR GEN_TABLAX; // En principio será cero su valor.
Para ver el nº que guarda puedes usar la sentencia: SHOW GENERATORS; También puedes usar: SELECT GEN_ID(GEN_TABLAX,0)FROM RDB$DATABASE; // EL valor cero hace que no se altere el generador.
Para modificar (en más o menos +1 o -1) usa esta otra: SELECT GEN_ID(GEN_TABLAX,-1) FROM RDB$DATABASE;
Desde Delphi puedes consultar el generador y recoger el dato. Yo lo muestro en un TLabel desde la creación/activación de la aplicación. Así puedes recoger el dato del Label.
Por otro lado el Trigger es muy fiable, pero se ejecuta después de la edición. Puedes poner como condición que actúe cuando el dato sea Cero y colocar ese dato de modo inicial. Al guardar datos, si se encuentra un cero, se actualizará el generador y se colocará su contador automáticamente. Es lo bueno de los triggers!
Aquí va mi función que chequea el generador:
Código Delphi
[-]
Function REVISA_GEN( IBQuery1: TIBQuery; PasaUno : Boolean ; Label3: TLabel) : Integer;
Var
Avance : String; begin
if PasaUno then Avance:='1' else Avance:='0';
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.ADD('SELECT GEN_ID( GEN_WB,'+Avance+' ) FROM RDB$DATABASE');
IBQuery1.Open; Result := IBQuery1.Fields[0].AsInteger;
Label3.Caption:= IntToStr(Result);
end;