Asignar numero incremental

[Caren]

Si pero no me dice con que programa o complemento de todas formas lo subo tal cual aunque me heche la bronca.

Código Delphi [-]

procedure TAltaClientes.JvHTButton5Click(Sender: TObject);
var
Ultimo : Integer;
begin
Ultimo := ConfigurarNumeros.ADONumerosCodClientes.Value + 1;
ADOClientes.Open;
ADOClientes.Insert;
ADOClientes.FieldByName('CodCliente').Value := Ultimo;
ADOClientes.Post;
ConfigurarNumeros.ADONumeros.Edit;
ConfigurarNumeros.ADONumerosCodClientes.Value := Ultimo;
ConfigurarNumeros.ADONumeros.Post;
end;

Reitero las gracias con todo el corazon, estaba muy atascado y apunto de abandonar.