Функция Randomize

[MaXXX]

Всем доброго времени суток.

Суть вопроса в следующем: В Делфи имеется функция Randomize при помощи которой можно генерировать случайные значения

// например
//var a: integer;
// randomize;
//a := Random (100);
//

Так вот, нужно создать уникальный алгоритм, который бы мог создать массив значений переменного типа, и при этом ни одно из значений не повторяется дважды, так же ограничить длину выходного массива

function Generate(kolV_, kolB_: integer);
var
  b, c: integer;
begin
  for b := 1 to kolB_ do
  begin
    Randomize;
    for v := 1 to kolV_ do
    begin
      // присваивание переменной случайное число
      c := Random (Count);
      txt_RES.Lines.Add(IntToStr(c));
    end;
  end;
end;

[puporev]

Ну во-первых randomize не функция, а процедура, а во-вторых этот "уникальный алгоритм" здесь на форуме почти у каждого есть не в одном варианте.
Например если нужно заполнить массив от 1 до 50 числами от 1 до 50, чтобы они не повторялись, можно применить такую прцедуру:

type TMass=array [1..255] of Byte;
Var Mass :Tmass;
      i,n: Byte;
procedure MyRandom(n:integer;var a:Tmass);
var m,i,j,x:integer;f:Boolean;
begin
m:=2;
Randomize;
for i := 1 to n do
  begin
    repeat
      f:=false;
      x:=Random(n+1);
      for j:=1 to m do
      if a[j]=x then f:=true;
    until f=false;
    a[i]:=x;
    m:=m+1;
  end;
end;

[MaXXX]

спасибо большое за присланный код ...