[r1x]

Привет всем!
В общем проблема такая не могу разобратся
Как можно сделать случайным образом вытаскивать данные и выводить их.
Данные можно вытащить при помощи номера индекса(от 0 до сколько угодно)

Допустим к примеру Listbox в нем 100 строк каждая строка имеет свой текст
как мне вытащить рандомно строки да бы они не посторялись и засуноть их номера в масив

Вот код того что я начал но он не верно работает

Код:

type
  recc = record
  Q_num: integer; // номер строки
  A_num: integer; 


var
Test[0..29] of recc;

 qCount:= List1.Items.Count;
 for q:=0 to 29 do
 begin
   repeat
   Randomize;
   ok:=0;
   qa:=Random(qCount);
   for q1:=0 to 29 do
     if Test[q1].Q_num<>qa then ok:=1;
   if q1=29 then ok:=1;  //<- Вот это строчка как бы лишняя но без нее циклит приложение если совпадает случайное значение с массивом
   until ok=1;
   Test[q].Q_num:=qa;
 end;

Плиз очень надо помогите...