Localizar el codigo no utilizado en una BD

[principiante22]

Saludos a todos,

Estoy tratando de hacer un programa que localice el codigo que no esta siendo utilizado en una base de datos, por ejemplo, si mi campo codigo tiene los numeros del 1 al 10 y el administrador borra el codigo #5 pues que la proxima vez que se agregue un codigo, utilice el numero 5 y no el 11.

Esto es lo que tengo hasta ahora:

Código Delphi [-]
for i:= 1 to adotable1.RecordCount do
 begin
  while not adotable1.eof do
   begin
    if i=adotable1codigo.asinteger then
     begin
      adotable1.first;
      break;
     end
    else
     if adotable1. //Leer abajo// = adotable1.RecordCount then
      edit1.Text:=inttostr(i)
     else
      adotable1.Next;
   end;
 end;

Donde pongo "Leer abajo" es donde tengo problemas (no se si los tenga en otra parte) porque no se como poner para que cuando sea el ultimo record existente pues me utilice el valor de i en ese momento.

Gracias de antemano por cualquier ayuda que me puedan dar.

[[coso]]

hola , podrias hacer algo asi

Código Delphi [-]
// ordenar por id, si es tabla con IndexFields = 'id'
tabla.first;
id := 1;
while tabla.Locate('id',id,[]) do inc(id);

tabla.Append;
tabla.FieldValues['id'] := id;
tabla.post;

[principiante22]

Ok, gracias por tu ayuda.