1:

MediaPlayer1.Filename:=Filename;					

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:

procedure TForm1.Button1OpenMP3Click(Sender: TObject);
begin
OpenDialog1.Filter:='mp3 files (*.mp3)|*.mp3'; 
// kann ich hier direkt auch mehrere Dateiformate filtern?, wenn ja wie.
if OpenDialog1.Execute=True then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName; 
MediaPlayer1.Open;
ListBox1.Items.Add(OpenDialog1.FileName); // (wenn ich das mache, wird ja der ganze Pfad i. d. Listbox angegeben, es soll aber nur den Titel hinzufügen)
 
// Dasselbe hab ich nochmal für wma Datein, is aber erstmal nich von Belang.

procedure TForm1.ButtonZufallClick(Sender: TObject);
var R: integer;
begin
R:= random(ListBox1.Items.Count); //einen zufälligen Eintrag aus der Listbox nehmen
MediaPlayer1.FileName:=ListBox1.Items[R]; //die datei laden
MediaPlayer1.Play;
MediaPlayer1.Open;
MediaPlayer1.Play;
end; // is ja auch klar.. ^^ find ich auch gut die Funktion über Random


procedure TForm1.ListBox1Click(Sender: TObject); // hier möchte ich onclick ein bestimmtes Lied abspielen
begin

ListBox1.Items.Count;
ListBox1.Selcount;
MediaPlayer1.Open;
MediaPlayer1.Play; //<-- hier denke ich, müsste ja noch eine Anweisung hin um das ausgewählte lied abzuspielen..

end; // Die Anweisung "ListBox1.Items.Count;" ist ja dafür da die Lieder in der Listbox zu zählen und "ListBox1.Selcount;" für die markierte Zeile...(?)
  
initialization
randomize;