[moo2k]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  p: integer;
  SL: TStringList;
begin
  if OpenDialog1.Execute then begin

    SL := TStringList.Create;
    try

      SL.LoadFromFile(OpenDialog1.FileName);
      for i := 0 to SL.Count - 1 do begin
        if (Pos('#EXTM3U', SL[i]) > 0) then Continue
        else begin
          p := pos('#EXTINF', SL[i]);
          if p > 0 then p := Pos(',', SL[i]) + 1;

          (FindComponent(Format('ListBox%d', [2 - byte(p > 0)])) as TListBox).AddItem(
            Copy(SL[i], p, length(SL[i])), nil
          );
        end;
      end;

    finally
      SL.Destroy;
    end;

  end;
end;

Код:

По дабл-клику на ListBox1 (по названию песни) - делать так:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  ShowMessage(ListBox2.Items[ListBox1.ItemIndex]);
end;

(вместо ShowMessage запускай на проигрывание файл)