Hola josep.
Si no entendí mál y lo que estas buscando es obtener el próximo ID, creo que podrías hacer:
Código Delphi
[-]
function TF_RebutFP.ProximoID: Integer;
begin
with TIBQuery.Create(nil) do
try
Database:= Tu_IBDatabase; SQL.Text:= 'SELECT COUNT(*) AS TOTREG FROM TU_TABLA';
Open;
Result:= FieldByName('TOTREG').AsInteger + 1;
Close
finally
Free
end
end;
Código Delphi
[-]
procedure TF_RebutFP.Button1Click(Sender: TObject);
var
id: Integer;
begin
id:= ProximoID;
...
end;
Saludos.