[esimon]

Marcos disculpa por la publicación y encuanto a lo escrito quise decir me comprendan, esta es la rutina que uso para incrementar el código.

procedure TFrm_Provincias.Tbl_ProvinciasNewRecord(DataSet: TDataSet);
begin
      if Tbl_Provincias.State = dsInsert then
      Begin
         Tbl_ProvinciasCodigo_Provincia.Value := Qry_IncrementaCodigoProvincia.Fields[0].AsInteger + 1;
         Qry_IncrementaCodigoProvincia.Close;
      end;   
end;