Есть база данных Access - читается в Delphi,для каждой записи ADOquery заполняется строка в Listbox.Надо сделать выборку

Как сделать так чтобы заполнялись не последовательно все строки:

while not Form1.AdoQuery1.Eof do
begin
Form1.ListBox1.Items.Add ('Вопрос № '+Form1.AdoQuery1.FieldByName('Код').AsString);
Form1.AdoQuery1.Next;
end;

А сделать выборку N случайных.