Генерация случайных чисел без повторений

procedure TForm2.sButton2Click(Sender: TObject);
var t:TStringList;
    a:array[0..230] of integer;
    n,i,x:integer;
begin
sMemo1.Clear;
n:=20;
randomize;
t:=TStringList.Create;
a[0]:=random(230);
t.Add(inttostr(a[0]));
for i:=1 to n-1 do
 begin
  repeat
  x:=random(230);//не меньше
  until t.IndexOf(inttostr(x))=-1;
  a[i]:=x;
  t.Add(inttostr(x));
 end;
for i:=0 to n do
sMemo1.Lines.Add(inttostr(a[i])) ;
end;

uses ..., Math;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const N = 230;
var L: TStringList;
    i: integer;
begin
  L := TStringList.Create;
  for i := 1 to N do
    L.Add(IntToStr(i));
  for i := 0 to N - 1 do
    L.Exchange(i, RandomRange(0, N));
  Memo1.Lines.Assign(L);
  L.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;
 
// перемешать числа от 1 до N и вывести в Memo1 
procedure TForm1.Button1Click(Sender: TObject);
const N = 230;
var L: TStringList;
    i,k: integer;
begin
  L := TStringList.Create;
  for i := 1 to N do
    L.Add(IntToStr(i));
 
  for i:=1 to N-1 do
  begin
    k:= Random(N-i+1)+i;
    if k<>i then L.Exchange(i-1,k-1)   
  end;
 
  Memo1.Lines.Assign(L);
  L.Free;
end;

Memo1.Lines.Clear;
for i:=0 to 19 do Memo1.Lines.Append(L.Strings[i]);