Как сохранить MP3 тег?

[Lika]

Как его прочесть из файла я написала. Теперь думаю как сохранить в файл. Пока ничего не получается...

[Квэнди]

В частности

function SetMp3Tag(MP3Tag: TMP3Tag; FileName: string): boolean;
var
  mp3Str: TFileStream;
  TExists: boolean;

  procedure WriteString(Str: string; Count: byte);
  var
    i: integer;
    CH: char;
  begin
    CH := #0;
    for i := 1 to Count do
    begin
      if I <= Length(Str) then
        Mp3Str.Write(Str[i], 1)
      else
        Mp3Str.Write(CH, 1);
    end;
  end;

begin
  Result := false;
  if not FileExists(FileName) then
    exit;

  try
    FileSetAttr(filename, 0);
    TExists := TagExists(filename);
    Mp3Str := TFileStream.create(FileName, fmOpenWrite);
    if not TExists then
      Mp3Str.Seek(Mp3Str.Size, 0)
    else
      Mp3Str.Seek(Mp3Str.Size - 128, 0);
    WriteString('TAG', 3);
    WriteString(MP3Tag.Title, 30);
    WriteString(MP3Tag.Artist, 30);
    WriteString(MP3Tag.Album, 30);
    WriteString(MP3Tag.Year, 4);
    WriteString(MP3Tag.Comment, 29);
    Mp3Str.Write(MP3Tag.Track, 1);
    Mp3Str.Write(MP3Tag.Genre, 1);
    Mp3Str.Free;
    Result := true;
  except
    Result := false;
  end;
end;

В общности в аттаче