ID3 Тag (Delphi)

[Khorn]

Помогите, не могу сообразить.
Пишу на Delphi.
У меня в listbox отображается список mp3 файлов, при клике на нужный фаил он начинает воспроизводиться и одновременно извлекается ID3 тег способом указанным здесь:
http://delphisources.at.ua/publ/mult...la/48-1-0-600#

При загрузке в listbox списка файлов их имена и длина в минутах выводиться с помощью отрисовки:

procedure TForm2.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
     const W = 16; 
        H = 16; 
 var BMPRect: TRect; 
 begin 
    with (Control as TListBox).Canvas do 
    begin 
      FillRect(Rect); 
      Listbox1.Canvas.Draw(0, Rect.Top, Image2.Picture.Graphic); 
      BMPRect := Bounds(Rect.Left, Rect.Top, W, H); 
      end; 
 with (control as TListBox).canvas do 
   begin 
         Font.Color := clGray; 
         Font.Size := 9; 
         Brush.Style := bsClear; 
         Brush.Color := clGray; 
         SetBkMode(ListBox1.canvas.Handle, TRANSPARENT);
TextOut(Rect.Left + w, Rect.Top, IntToStr(Index) + '. ' + extractfilename(Listbox1.Items[index]));//для названия песни
 TextOut(rect.right-50, rect.top, form_player.lentime(Listbox1.Items[index]));//для времени
 end;
 end;

Подскажите, как вывести в listbox теги Titel и Artist вместо непонятного названия?

Пробывал так, но тогда фаил становиться недоступным

WITH readID3Tag(Listbox1.Items.Strings[i]) do 
ListBox1.Items.Add(Titel + ' - ' +Artist);

Уже не знаю, что делать...

[s-andriano]

Непонятно, что такое "фаил становиться недоступным ", и как вообще то, что нарисовано у Вас в окне, может влиять на доступность либо недоступность файла.

[Khorn]

Никак не влияет. Просто кинул для примера.

Фаил становиться недоступным, потому, что при загрузке файлов в listbox из них считываются теги и выводятся. Но при даблклике на строку с файлом выскакивает сообщение о том, что не удаётся найти указанный фаил.