Añadir registro en tabla firebird si la tabla está vacia

[ecfisa]

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; // o si corresponde, DataModule.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.