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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TfrmMain.btnShuffleClick(Sender: TObject);
//Zufallsliste erstellen
var i,x: Integer;
    RandomIndex: Integer;
    Shuffle: PShuffle;
//i,x: Zählvariablen
//RandomIndex: Index des Zufallstracks
//Shuffle: Pointervariable auf den neu definierten Typ
begin
  //Titel-Tabelle leeren
  lsvTracklist.Clear;
  ShuffleList.Create;
  i := 0;
  //Zufallsgenerator starten
  Randomize;
  REPEAT
    //Zufalls-Track heraussuchen
    RandomIndex := Random(TrackList.Count);
    //Wenn der Track noch nicht in der Zufallsliste ist,
    IF ShuffleList.IndexOf(IntToStr(RandomIndex)) = -1 THEN
      //nehme ihn in die Zufallsliste mit auf
      ShuffleList.Add(IntToStr(RandomIndex));
    //Wenn die Track-Anzahl der Zufallsliste = der Anzahl der geordneten Liste ist,
    IF ShuffleList.Count = TrackList.Count THEN
      i := 1;
    //beende den Zufallsgenerator
  UNTIL i = 1;
  FOR x := 0 TO TrackList.Count - 1 DO BEGIN
    Shuffle := PShuffle(TrackList.Objects[x]);
    //Den Index auf der geordneten Titelliste dem Zufallsstück zuweisen
    Shuffle.ShuffleIndex := StrToInt(ShuffleList.Strings[x]);
  END;
  //Anzeigen der Zufallsliste in der Tabelle
  FOR x := 0 TO ShuffleList.Count-1 DO BEGIN
    Shuffle := PShuffle(TrackList.Objects[x]);
    WITH lsvTrackList.Items.Add DO BEGIN
      Caption := IntToStr(x+1);
      //Dateiname
      SubItems.Add(ExtractFileName(TrackList.Strings[Shuffle.ShuffleIndex]));
      //Dateipfad
      SubItems.Add(ExtractFilePath(TrackList.Strings[Shuffle.ShuffleIndex]));
      SubItems.Add(IntToStr(Shuffle.ShuffleIndex));
    END;
  END;
end;                    

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

Var
  ShuffleList : Array Of Integer;
  h,n,i,j : Integer;

Begin
  n := TrackList.Count;
  setLength (ShuffleList, n);
  For i:=0 to n-1 do ShuffleList[i] := i;  // erstmal eine geordnete Liste erstellen
  For i:=0 to n-1 do Begin      // Für alle Elemente der Liste
    j := Random (n - i + 1);      // ein zufälliges Element 0.. n-i auswählen
    h := ShuffleList[j];      // und vertauschen
    ShuffleList[j] := ShuffleList[i]; 
    ShuffleList[i] := h;
    End;
End;                    

1:

Shuffle.ShuffleIndex := StrToInt(ShuffleList.Strings[x]);