[miguel_e]

Poniendo el ejemplo que descarge de torry.net:

procedure Lese_ID3Tag(Filename:string);
var Buffer:array[1..128] of char;
  F:File;
begin
 AssignFile(F, Filename);
 Reset(F,1);
 Seek(F,FileSize(F)-128);
 BlockRead(F, Buffer, SizeOf(Buffer));
 CloseFile(F);
 with ID3Tag do
 begin
  ID:=copy(Buffer,1,3);
  Titel:=copy(Buffer,4,30);
  Artist:=copy(Buffer,34,30);
  Album:=copy(Buffer,64,30);
  Year:=copy(Buffer,94,4);
  Comment:=copy(Buffer,98,30);
  Genre:=ord(Buffer[128]);
 end;
end;

todo eso funciona bien, pero como haria para obtener el cover del disco????, he estado buscando en que posicion se encuantra esa info pero no la encuentro, alguna idea???

salu2
miguel_e