[Petros9n]

на ошибке выделят строчку из модуля ID3v2: Reset(SourceFile, 1);
я использую данный модуль для считывания тегов из mp3:

Код:

for n:=0 to 3 do
  begin

    if l[n].Caption='' then begin if FileTag.ReadFromFile(mList1.Strings[n]) then
    l[n].Caption:=FileTag.Artist+' - '+FileTag.Title; end;
   end;