Var Cod : integer; begin {Somando mais um arquivo pra monstrar o codigo do ultimo registro} DtModule.SimpleCliente.edit; DtModule.SimpleCliente.Last; Cod := DtModule.SimpleClienteCODIGO.Value + 1; DtModule.SimpleCliente.Append; DtModule.SimpleClienteCODIGO.Value := Cod; end;