M3u файлы, как открыть? Опции

[Артемий]

Народ помогите! Как мне с помощью ListBox открыть m3u файл. Че-то никак не получается.. заранее благодарен!

[volvo]

  if OpenDialog1.Execute then begin
    ListBox1.Items.LoadFromFile(OpenDialog1.FileName);

    for i := 0 to ListBox1.Items.Count - 1 do
      if (Pos('#EXTM3U', ListBox1.Items[i]) = 0)
         and
         (pos('#EXTINF', ListBox1.Items[i]) = 0)
      then begin
        SetLength(s, length(s) + 1);
        s[pred(length(s))] := ListBox1.Items[i];
      end;
  end;

?

Только вот я не пойму, зачем тебе еще массив надо? Есть же ListBox.Items, которые хранят все, что нужно...