[jhonny]

Otra manera de hacerlo es... aunque como ya te he dicho anteriormente la tuya funciona a la perfección:

Código Delphi [-]
  i := 1;
  while (RxMemoryData1.Locate('Numero', i, [])) do
  begin
    inc(i);
  end;
  Result := i;