function GetID3TagSongName(mp3File:string):string;
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;
var
  ID3:TID3Rec;
  fmp3:TFileStream;
begin
  // 取得 MP3 歌曲名稱
  Result:='';
  if not FileExists(mp3File) then exit;
  try
    fmp3:=TFileStream.Create(mp3File,fmOpenRead);
    try // 位於檔案尾端128位元組
      fmp3.Position := fmp3.Size - 128;
      fmp3.Read (ID3,SizeOf(ID3));
    finally
      fmp3.Free ;
    end;
  except
  end;
  if ID3.Tag = 'TAG' then
    Result:=ID3.Title;
end;