Delphi по кнопке рандом элемента из числового массива и удаление его

Question

Есть поле в SQL запросе. 
Нужно написать следующее: 
 
ABSQuery1.Close; 
ABSQuery1.SQL.Clear; 
ABSQuery1.SQL.Add('select * from '+abstable1.tablename) ; 
ABSQuery1.SQL.Add('where id='+ рандомное число из массива; 
ABSQuery1.Open; 
 
Нужен массив из чисел этого поля, чтобы по кнопке он рандомил из этого массива и удалял этот элемент и на основе этого уже делал этот SQL запрос. Заранее спасибо.

Пирахмаев Али · Accepted Answer

for i := 1 to random( adstable1.recordcount ) do adstable1.next; 
..'wherer id = ' + adstable1.field( 'id' );