Mediaplayer Playlist Wie WMP

[Dönerboy]

So, habs Gelöst, Funktioniert jetzt dann doch:

Delphi-Quellcode:

if button2.Down=true then
begin
  mediaplayer1.Stop;
    mediaplayer1.Close;
  case random (listbox1.Items.Count) of
    0:i:=0;
    1:i:=1;
    2:i:=2;
    3:i:=3;
    4:i:=4;
    5:i:=5;
    6:i:=6;
    7:i:=7;
    8:i:=8;
    9:i:=9;
    10:i:=10;
    11:i:=11;
    12:i:=12;
    13:i:=13;
    14:i:=14;
    15:i:=15;
    16:i:=16;
    17:i:=17;
    18:i:=18;
    19:i:=19;
    20:i:=20;
    21:i:=21;
    22:i:=22;
    23:i:=23;
    24:i:=24;
    25:i:=25;
    26:i:=26;
    27:i:=27;
    28:i:=28;
    29:i:=29;
  end;
  mediaplayer1.FileName:=listbox1.Items.Strings[i];
  mediaplayer1.Open;
  mediaplayer1.Play;
end

Wenn ich noch fragen hab, schreib ich sie wieder hier rein!!!