Asignar numero incremental

[Caren]

Pongo este codigo y no me va, soy nuevo en esto de programacion y seguro que me dejo algo pero no se el que:

Código Delphi [-]
procedure TAltaClientes.FormCreate(Sender: TObject);
 var
  Ultimo : Integer;
begin
  // Obtener el último ID de cliente de la tabla "ConfigurarNumeros"
  // incrementarlo en uno y almacenarlo en la variable Ultimo
  Ultimo := ADONumeros.FieldByName('CodClientes').Value + 1;

  // Agregar un registro en tabla "Clientes"
  ADOClientes.Insert;
  // Asignarle el ID (Codigo) de cliente
  ADOClientes.FieldByName('CodCliente').Value := Ultimo;
  { Asignar los demás valores del cliente
  }
  ADOClientes.Post;  // Guardar

  // Actualizar ultimo cliente en tabla "Configurar Numeros"
  ADONumeros.Edit;
  ADONumeros.FieldByName('CodCliente').Value := Ultimo;
  ADONumeros.Post; // Guardar
begin
 ADOClientes.Active:=  True;
end;

se me para en adonumeros
Gracias