comparar listas de numeros

[Tala]

Hola... Resulta que estoy cargando numeros aleatorios a un listbox y estoy cargando los numeros de mi bd a otro listbox, luego los comparo y los muestro pero mi bd no comienza el autonumerico en 1, asi que no me muestra todos mis items.... como puedo validar esto???????

Código Delphi [-]
   DMExamen.DataSourceExamen.AutoEdit:=true;
   F_Examen.ListBox_aleatorios.Items.Clear;
   F_Examen.listbox();
   Ristra:=TAlea.Create(F_Examen.ListBox_pregunta.Items.Count);

   {Sacamos numeros sin repetir}

   for n:=1 to F_Examen.ListBox_pregunta.Items.Count do begin
      F_Examen.ListBox_aleatorios.Items.Add( IntToStr(Ristra.PillaNumero) );
   end;

   F_Examen.pregunta := StrToInt(F_Examen.ListBox_pregunta.Items.Strings[strtoint(F_Examen.ListBox_aleatorios.items.Strings[0])]);
   DMExamen.ADOQueryExamen.Filter := 'id_pregunta = '+ inttostr(F_Examen.pregunta);
   DMExamen.ADOQueryExamen.Filtered := true;