Código autoincrement

Procedure NovoCliente(Sender: TObject);
Var UltReg : Integer;
Begin // Autonumeracao do novo cliente
IF TbMvtoCxPedido.IsEmpty Then // se a tabela estiver vazia
Begin
TbMvtoCxPedido.Append; //inserir registro em branco
TbMvtoCxPedidoCod_MvtoCx.Value:=1; //recebi o valor 1
End ELSE // se nao
Begin
TbCliente.IndexFieldNames:= 'Cod_Cli'; // indexa por codigo do cliente
TbMvtoCxPedido.FindLast; // vai para o ultimo cod.
UltReg:=TbClienteCod_Cli.Value; //varialvel recebe o cod do ultimo cadastro
TbCliente.Append; // inseri um campo em branco ao final da tabela
TbCliente.Open; //abre a tabela
TbClienteCod_Cli.Value := UltReg + 1; //recebi o valor do ultimo registro mais 1
End; //fim autonumeração

end;