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

var
I: integer;
begin
if OpenDialog1.Execute=True then

 begin
        for I := 0 to OpenDialog1.Files.Count-1 do
        Listbox1.Items.add(Opendialog1.Files[i]);
        // hier weiß ich nicht, ob für ein weiteres vorgehen das hier nicht besser ist:
        //  Listbox1.Items.add(extractfilename(Opendialog1.Files[i]));
 end;

end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Btn_PlayClick(Sender: TObject);
begin
track:= BASS_StreamCreateFile(FALSE, pchar(    ), 0, 0, 0);
// in der leeren klammer hatte ich mir eigentlich gedacht das ich dort sowas wie 
// Listbox.selectedtext oder so ähnlich nutzen könnte bzw selected
// wenn ich in die Klammer opendialog1.filename schreibe klappts ja auch :/
BASS_ChannelPlay(track, False);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

var i:integer;
begin
for I := 0 to Listbox1.Items.Count -1 do


track:= BASS_StreamCreateFile(FALSE, pchar(Listbox1.Items [i]), 0, 0, 0);
BASS_ChannelPlay(track, False);
end;                    

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

var i:integer;
begin
for I := 0 to Listbox1.Items.Count -1 do
  if ListBox1.Selected[I]=True then
  begin
  BASS_ChannelStop(track);
  track:= BASS_StreamCreateFile(FALSE, pchar(Listbox1.Items [i]), 0, 0, 0);
  BASS_ChannelPlay(track, False);
  end;
end;