Выгрузка m3u в ListBox

[demiancz]

На форме есть несколько ListBox в которые необходимо загрузить плейлисты m3u. В один плейлист нужно загрузить название, а во второй ссылку.
Делаю так:

procedure TForm1.FormCreate(Sender: TObject);
var
// переменные для загрузки плейлиста
  i: integer;
  p: integer;
  SL: TStringList;
begin
SL := TStringList.Create;
try
SL := TStringList.Create;
SL.LoadFromFile(ExtractFilePath(paramstr(0))+'playlist1.txt');
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;
if byte(p > 0)= 0 then ListBox1.AddItem(Copy(SL[i], p, length(SL[i])), nil);
if byte(p > 0)= 0 then ListBox2.AddItem(Copy(SL[i-1], p, length(SL[i-1])), nil);
end;
end;

ListBox1 делаю Visible:=false, так как ссылки не обязательно видеть.
Все вроде как работает, но не совсем так как надо.
Ссылки нормально вытягивает, а вот названия криво, так как перед каждым названием остается текст #EXTINF:-1,
Как убрать этот текст, что бы в ListBox2 было только название трека?

И еще. У меня таких плейлистов 3. Поэтому будут еще ListBox3, ListBox4 (для второго плейлиста) и ListBox5, ListBox6 (для третьего плейлиста)

Может кто подскажет как проще сделать одновременную загрузку трех-четырех плейлистов в нужные Листбоксы.

[eval]

структуру файлов показать не помешает, ну и 2 листбокса на плейлист это многовато