saludo para todos

[edwin.simon]

estoy usando delphi 7 y accesse, en un programa que estoy realizando trato de incrementar un codigo atraves de un query

Código SQL [-]
Select Max(codigo) From tabla

y en NewRecord de la tabla tengo esto.

Código SQL [-]
  if Tbl_Departamento.State = dsinsert then 
  begin
    Tbl_Departamento.Open;
    Tbl_DepartamentoCodigo_Departamento.Value := Qry_IncrementaDepartamento.Fields[0].AsInteger + 1;
    Qry_IncrementaDepartamento.Close;
  end;

todo bien por el momento,el problema esta cuando inserto un registro incrementa el codigo grabo, voy a insertar otro registro no lo incrementa pone el codigo 1, pero si sierro el fom y entro nuevamente cuando inserto me incrementa el codigo 2. eso quiere decir que tengo que entra y salir para que lo incremente. estoy buscando y no veo donde puede estar el problema y siempre es hecho eso y funciona bien.

que pasará?

mil gracias.