Hola edwin.simon.
Por favor, tratá de usar
títulos significativos en tus mensajes.
Saludos para todos, aunque es cordial no representa el problema que te sucede...
El código no se etiquetó correctamente por que para código SQL es: [sql] [/sql] , y para codigo Delphi: [delphi] [/delphi] , Pero lo que vale es la intención. Gracias por usarlas.
Aunque imagino que lo que deberías hacer es algo así:
Código Delphi
[-]
if Tbl_Departamento.State = dsinsert then
begin
Tbl_Departamento.Edit;
Tbl_DepartamentoCodigo_Departamento.Value := Qry_IncrementaDepartamento.Fields[0].AsInteger + 1;
...
end;
Estaría más seguro de la respuesta si pusieras la sentencia SQL que utilizas en Qry_IncrementaDepartamento.
Un saludo.