1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.Button2Click(Sender: TObject);
 procedure DeleteEl(arr: Array of Integer; index: integer);
 var i: integer;
 begin
  if index<high(arr) then begin
    for i:=index to high(arr)-1 do
     arr[i]:=arr[i+1];
  end;
end;
var arr : Array of Integer;
    a : integer;
    i : integer;
    rList : Array[0..4999] of Integer;
    n1,n2 : integer;
begin
 n1:=GetTickCount;
 setLength(arr, 5000);
 for i:=0 to 4999 do
  arr[i]:=i;
 for i:=0 to 4999 do
  begin
   if (i>0) then setLength(arr, length(arr)-1);
   a:=Random(length(arr));
   rList[i]:=Arr[a];
   DeleteEl(Arr, a);
  end;
 n2:=GetTickCount;
 showmessage(inttostr(n2-n1));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.Button1Click(Sender: TObject);
 function InArray(a:integer; sList : array of Integer):boolean;
 var i : integer;
 begin
  result:=true;
  for i:= low(slist) to high(slist) do
   begin
    if slist[i]=a then exit;
    if sList[i]=0 then break;
   end;
  result:=true;
 end;
var i : integer;
    s : Array[0..4999] of Integer;
    a : Integer;
    n1,n2 : integer;
begin
 n1:=GetTickCount;
 ZeroMemory(@s, sizeOf(s));
 for i:=0 to 4999 do
  begin
   a:=random(5000)+1;
   while not InArray(a, s) do a:=Random(5000)+1;
   s[i]:=a;
  end;
 n2:=GetTickCount;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Procedure ShuffleFisherYates (Var A : Array Of Integer; Count : Cardinal);
Var
  I, T : Cardinal;
  
Begin
  For I := 0 to Count-1 do begin  
    J := I+random(Count-I);  
    T := A[J];  
    A[J] := A[I];  
    A[I] := T;  
  End;  
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Var
  A : Array Of Cardinal;
  Cnt : Integer;

Procedure MyRandomize (Count : Cardinal);
Var
  I : Cardinal;

Begin
  Randomize;
  SetLength (A, Count);
  For i:=0 to Count - 1 do A[i] := I+1;
  ShuffleFisherYates (A, Count);
  Cnt := Low (A);
End;

Function MyRandom : Cardinal;
Begin
  if Cnt > High (A) Then
    Raise Exception.Create ('Alle Zahlen wurden gezogen');
  Result := A[Cnt];
  Inc (Cnt);
End;