[dr. F.I.N.]

Так. Стоп. Процедура должна искать случайное значени (от 1 до 5) в базе, и если его нет, то добавлять. МосК зашевелился

Код:

var
  CheckSet: Set of Byte;
  Uni: Boolean;
...
begin
  ...
  randomize;
  CheckSet := [1..5];
  Uni := true;
  repeat
    c1:=RandomRange(0,6);
    Uni :=(c1 in CheckSet) and (not AdoTable1.Locate('c1',c1,[loCaseInsensitive]);
    Exclude(CheckSet, c1);
  until (not Uni) or (CheckSet = []);
  if Uni then // в с1 уникальное значение
  ...
end;