Разъясните данную процедуру

[Равиль2303]

Что делает данная функция

function CreateVyb(ques:integer;table:TADOTable):string;
var n,lowd,hid,i:integer;
begin
 result:='';
 table.Active:=true;
 n:=table.RecordCount div ques;
 table.Active:=false;
 lowd:=1;
 hid:=n+1;
 for i := 1 to ques do
  begin
   randomize;
   result:=result+inttostr(randomrange(lowd,hid))+',';
   lowd:=hid;
   hid:=hid+n;
  end;
 delete(result,length(result),1);
end;

[asmodey1]

function CreateVyb(ques:integer;table:TADOTable):string;
var n,lowd,hid,i:integer;
begin
 result:=''; //задаем начальное значение возвращаемого результата
 table.Active:=true; //открываем некую таблицу
 n:=table.RecordCount div ques; //считываем количество записей в ней и целочисленно делим на входной параметр ques
 table.Active:=false; //закрываем таблицу за ненадобностью
 lowd:=1; //задаем значение начала интервала генерируемых случайных величин
 hid:=n+1; //задаем значение конца интервала генерируемых случайных величин
 for i := 1 to ques do //в цикле по входному параметру ques генерируем очередное число
  begin
   randomize; //инициируем ГСЧ (правильнее, на мой взгляд, произвести ее один раз - перед циклом...)
   result:=result+inttostr(randomrange(lowd,hid))+','; //получаем строковое значение случайного числа из диапазона (интервала)  lowd<->hid
   lowd:=hid;//"переносим" интервал выше, над уже использованным
   hid:=hid+n;
  end;
 delete(result,length(result),1)//удаляем запятую в конце результирующей строки
end;
Результат (в виде строки) - составное случайное число, некоторым образом скореллированное с числом записей в таблице БД в данный момент, в которое могут входить как одноразрядные, так и многоразрядные случайные числа, расположенные подряд, друг за другом.
Для улучшения "коэффициента случайности" можно еще ввести строковый массив размерностью ques, чтобы получаемые СЧ записывать не подряд (в элементы массива), а в случайном порядке, "перемешивая" индексы элементов массива. А уже потом собрать результирующую строку.