[jhonny]

asi:

Código Delphi [-]
 
 i:=0; 
 Repeat 
    i:=i+1; 
 until (cds.Locate('Numero', i, []));  
 Resultado:=i;