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

procedure TForm1.AddBtn1Click(Sender: TObject);
var
  I: integer;
begin
   { setup a simple playlist so we can demonstrate how to handle it }
if OpenDialog3.Execute then
   for i:=0 to opendialog3.Files.Count -1 do
    begin
      JvPlaylist1.AddItem(Extractfilename(opendialog3.Files.Strings [i]),nil );
    end;
end;