1:
2:
3:

Listbox1                Listbox 2                Listbox 3
1 Rammstein - bla       1 Rammstein - bla        1 C:\MP3\Rammsteinbla.mp3
2 Rammstein - bla       2 Metallica - blubb      2 C:\MP3\Metallicablub.mp3					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TForm1.Button1Click(Sender: TObject);
var stream: TFilestream;
    F: TSearchRec;
    dateiname : String;
    i : Integer;
begin
  i := 1;
  if FindFirst('f:\MP3\*.mp3',faANYFIle,F) = 0 then
  begin
    repeat
    begin
      if (F.Attr and faDirectory) = 0 then
      begin
        dateiname:= 'F:\MP3\'+ F.Name;
        stream := TFileStream.Create(dateiname, fmOpenRead or fmShareDenyWrite);
        Id3v2Tag.ReadFromStream(stream);
        if Not Id3v2Tag.exists then
          stream.Seek(0, sobeginning)
        else
        stream.Seek(Id3v2Tag.size, soFromBeginning);
        MpegInfo.LoadFromStream(Stream);
        Id3v1Tag.ReadFromStream(stream);
        Listbox1.Items.Add(inttostr(i) + ' ' + Id3v1Tag.Artist + ' - ' +Id3v1Tag.Title);
        Listbox2.Items.Add(inttostr(i) + ' ' + Id3v2Tag.Artist + ' - ' +Id3v2Tag.Title);
        Listbox3.Items.Add(inttostr(i) + ' ' + dateiname);
        stream.free;
        i := i + 1;
      end;
    end;
    until FindNext(f) <> 0;
    FindClose(F);
  end;
end;