Código:
procedure TfComprobante.tcomprobanteBeforePost(DataSet: TDataSet);
begin
if tcomprobante.state in [dsInsert] then
begin
tCConfig.edit; {Si estás en edición esta línea sobra anulala.}
tCConfig.FieldByName('Nro_comprobante').value:=tCConfig.FieldByName('Nro_comprobante').value+1;
tCConfig.post;
tCConfig.close;
end;
end;
Un Saludo