Mediaplayer Playlist Wie WMP

[Dönerboy]

Ok, so gut klappt es auch nicht...

Habe Noch eine Random Funktion eingebaut, aber jetzt schmiert das prog erst richtig ab:
"listenindex...."

Hab alles versucht und weiß leider nicht weiter:

Delphi-Quellcode:

 
if button2.Down=true then //zufalls Button
begin
mediaplayer1.Stop;
mediaplayer1.Close;
i:=spinedit1.Value;
spinedit1.MinValue:=0;
spinedit1.MaxValue:=listbox1.Items.Count; //musste es über spinedit regeln
Spinedit1.Value:=round(random*spinedit1.maxValue); //da ist glaub ich der fehler
mediaplayer1.FileName:=listbox1.Items.Strings[i];
mediaplayer1.open;
mediaplayer1.Play;
end

falls es wichtig ist, Hab Rad Studio 2009 Architect, Also auch Delphi 2009.