saludo para todos

[ecfisa]

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.