Hola.
No sé como incrementas el campo: On New Record, On Post u On Server, así que posiciono en el último, muestro el próximo y luego añado. (CAMPO_ID es el nombre del campo incremental en el ejemplo).
Ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
IBDataSet1.Last;
TXTATENCION.Text:= IntToStr(IBDataSet1.FieldByName('CAMPO_ID').AsInteger + 1);
IBDataSet1.Append;
end;
Saludos.