Здавствуйте! Вот есть у меня такая(см ниже) функция поиска и занесения в дерево mp3 файлов. Подскажите, как вместо этого устроить чтение тегов, и уже по их данным заносить файлы в дерево(Delphi2007, WinXP, JVCL):
(Артист1
  трек1
  трек2
  ...
Артист2
 трек1
 ...
...
)

Вот прост
function TForm1.FillTreeMp3(ADir: string; const ATreeDir: string;
 ANode: TTreeNode): Integer;
var
 fs: TSearchRec;
 CurNode: TTreeNode;
begin
Led.ColorOn:=clLime;
 Result := 0;
 ADir := IncludeTrailingPathDelimiter(ADir);
 CurNode := TreeView1.Items.AddChild(ANode, ATreeDir);
 Result := 0;
 if FindFirst(IncludeTrailingPathDelimiter(ADir) + '*.mp3', faAnyFile - faDirectory - faVolumeID, fs) = 0 then
   repeat
     TreeView1.Items.AddChild(CurNode, fs.Name);
     Inc(Result);
   until FindNext(fs) <> 0;
 if FindFirst(ADir + '*.*', faDirectory, fs) = 0 then
   repeat
     if (fs.Name = '.') or (fs.Name = '..') then continue;
     if (fs.Attr and faDirectory) <> 0 then
       Result := Result + FillTreeMp3(ADir + fs.Name, fs.Name, CurNode);
   until FindNext(fs) <> 0;
 if Result = 0 then CurNode.Delete;
 FindClose(fs);
Led.ColorOn:=clSilver;
end;

найти все файлы, у каждого прочитать тег. Находить уже научились, читать можно с помощью модулей audio tools library, скачать можно на http://www.torry.net/ или тут http://desksoft.ru/index.php?downloads=files&id=8 (150кб)

Вот именно это "у каждого прочитать тег" у меня и не получается.

из-за чего?