como localizar un numero que no este siendo usado en BD
 

Saludos de nuevo,

Tengo una tabla con un campo llamado codigo, el cual contiene una sucesion de numeros. Mi problema es que quiero localizar cual numero no se esta usando para poder utilizar. Por ejemplo, si tengo en mi campo "1" "2" "3" "5" quiero que mi funcion me muestre que el 4 no se esta usando. Lo que tengo hasta ahora es esto:

Código Delphi [-]
procedure TFmdatosNew.Button1Click(Sender: TObject);
var
codigo: array [1 .. 5] of integer;
i:integer;
begin
for i:= 1 to 5 do
 begin
  codigo[i]:=i;
   if codigo[i]=adotable1codigo.asinteger then
    listbox2.items.Add(inttostr(codigo[i]))
   else
    begin
     edit3.text:= inttostr(codigo[i]);
     abort;
    end;
 end;
end;

Pero esto solo me lo compara con mi primer entrada, no con todas las existente en la BD, y entiendo por que lo hace, lo que no se es como hacer para buscar en todas las entradas existente.

Gracias de nuevo de antemano :D

Ya lo solucione!

Solo puse un

Código Delphi [-]
adotable1.Next;

Disculpen mi idiotes. Si me pudieran decir como eliminar este post lo elimino.

Gracias de todas formas