procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
f:string;
begin
if opendialog1.Execute then
for i:=0 to (opendialog1.Files.count-1)do
begin
f:=opendialog1.Files.Strings;
listbox1.items.add(f);
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
MediaPlayer1.Filename := ListBox1.Items.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.play;
end;
