[Error]

Помогите, есть цикл, который присваивает переменной значение из диапазона, а если такое число уже есть, то присваивает другое.
Код

Код:

repeat
randomize;
c1:=RandomRange(1,5);
until not AdoTable1.Locate('c1',c1,[loCaseInsensitive]);

Или такой

Код:

begin
randomize;
c1:=RandomRange(1,5);
while AdoTable1.Locate('c1',c1,[loCaseInsensitive]) do
begin
randomize;
c1:=RandomRange(1,5);
end;

Но, если все числа от единицы до пяти уже есть, то программа виснет.
Как можно закончить цикл?