var
  i, j : integer;
  aSet : set of byte;
begin
  aSet := [];
  randomize;
  for i := 1 to 20 do
  begin
    repeat
      j := random(256);
    until not (j in aSet);
    aSet := aSet + [j];
  end; // for i
end;

위의 소스를 참고하세요.. -locke