собссна, нажна помощь: как вытащить дельфей сабж? имеется ввиду название песен, битрейт, альбом и т.д. если можно, выложите, плз, ссылки на маны, исходники.
заранее спасибо!

type TID3Rec = packed record
Tag : array[0..2] of Char;
Title,
Artist,
Comment,
Album : array[0..29] of Char;
Year : array[0..3] of Char;
Genre : Byte;
end;

const MaxID3Genre=147;
ID3Genre: array[0..MaxID3Genre] of string = ('Blues','Classic Rock','Country','Dance','Disco','Funk','Grunge','Hip-Hop'
,'Jazz','Metal','New Age','Oldies','Other','Pop','R&B','Rap','Reggae','Rock'
,'Techno','Industrial','Alternative','Ska','Death Metal','Pranks','Soundtrack'
,'Euro-Techno','Ambient','Trip-Hop','Vocal','Jazz+Funk','Fusion','Trance'
,'Classical','Instrumental','Acid','House','Game','Sound Clip','Gospel','Noise'
,'Alt. Rock','Bass','Soul','Punk','Space','Meditative','Instrumental Pop'
,'Instrumental Rock','Ethnic','Gothic','Darkwave','Techno-Industrial'
,'Electronic','Pop-Folk','Eurodance','Dream','Southern Rock','Comedy','Cult'
,'Gangsta Rap','Top 40','Christian Rap','Pop/Funk','Jungle','Native American'
,'Cabaret','New Wave','Psychedelic','Rave','Showtunes','Trailer','Lo-Fi'
,'Tribal','Acid Punk','Acid Jazz','Polka','Retro','Musical','Rock & Roll'
,'Hard Rock','Folk','Folk/Rock','National Folk','Swing','Fast-Fusion','Bebob'
,'Latin','Revival','Celtic','Bluegrass','Avantgarde','Gothic Rock'
,'Progressive Rock','Psychedelic Rock','Symphonic Rock','Slow Rock','Big Band'
,'Chorus','Easy Listening','Acoustic','Humour','Speech','Chanson','Opera'
,'Chamber Music','Sonata','Symphony','Booty Bass','Primus','Porn Groove'
,'Satire','Slow Jam','Club','Tango','Samba','Folklore','Ballad','Power Ballad'
,'Rhythmic Soul','Freestyle','Duet','Punk Rock','Drum Solo','A Cappella'
,'Euro-House','Dance Hall','Goa','Drum & Bass','Club-House','Hardcore'
,'Terror','Indie','BritPop','Negerpunk','Polsk Punk','Beat'
,'Christian Gangsta Rap','Heavy Metal','Black Metal','Crossover'
,'Contemporary Christian','Christian Rock','Merengue','Salsa','Thrash Metal'
,'Anime','JPop','Synthpop');

procedure FillID3TagInformation (mp3File: string; var Title,Artist,
Album,Year,Genre,Comment:string);
var ID3 : TID3Rec;
fmp3: TFileStream;
begin
fmp3:=TFileStream.Create(mp3File, fmOpenRead);
try
fmp3.position:=fmp3.size-128;
fmp3.Read(ID3,SizeOf(ID3));
finally
fmp3.free;
end;
if ID3.Tag <> 'TAG' then begin
Title:='Wrong or no ID3 tag information';
Artist:='Wrong or no ID3 tag information';
Album:='Wrong or no ID3 tag information';
Year:='Wrong or no ID3 tag information';
Genre:='Wrong or no ID3 tag information';
Comment:='Wrong or no ID3 tag information';
end else begin
Title:=ID3.Title;
Artist:=ID3.Artist;
Album:=ID3.Album;
Year:=ID3.Year;
if ID3.Genre in [0..MaxID3Genre] then
Genre:=ID3Genre[ID3.Genre]
else
Genre:=IntToStr(ID3.Genre);
Comment:=ID3.Comment
end;
end;

P.S. Это первая версия тега, со второй всё намного сложнее, я искал в интернете, но хорошей бесплатной библиотеки так и не нашёл для этого...

Пользуй JCL + JVCL/\. Там есть компоненты для работы с обеими версиями тэгов. На чтение и запись.