[dr. F.I.N.]

Код:

var
  CheckSet: Set of Byte;
...
begin
  ...
  CheckSet := [1..5];
  randomize;
  repeat
     c1:=RandomRange(0,6);
     if not (c1 in CheckSet) then Continue
     else
     begin
       AdoTable1.Locate('c1',c1,[loCaseInsensitive];
       Exclude(CheckSet, c1);
     end;
  until CheckSet = [];
  ...
end;

Если и тут я ошибся - извини. Делфи перед глазами нет. И голова на работе закипает.