Ændre tags på mp3 filer

Jeg bruger følgende function til at læse tags fra mp3 filer.

type
  TID3Tag = record
    ID    : string[3];
    Titel  : string[30];
    Artist : string[30];
    Album  : string[30];
    Year  : string[4];
    Comment: string[30];
    Genre  : Byte;
  end;

  function readID3Tag(FileName: string): TID3Tag;
  var
    FS: TFileStream;
    Buffer: array [1..128] of Char;
    i : integer;
  begin
    for i:= 1 to 128 do
      Buffer[i]:= ' '; //Nulstiller buffer
    FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
    try
      FS.Seek(-128, soFromEnd);
      FS.Read(Buffer, 128);
      with Result do
      begin
        ID      := Copy(Buffer, 1, 3);
        Titel  := Trim(Copy(Buffer, 4, 30));
        Artist  := Trim(Copy(Buffer, 34, 30));
        Album  := Copy(Buffer, 64, 30);
        Year    := Copy(Buffer, 94, 4);
        Comment := Copy(Buffer, 98, 30);
        Genre  := Ord(Buffer[128]);
      end;
    finally
      FS.Free;
    end;
  end;

Nu vil jeg gerne lave en function, hvor jeg kan rette i disse tags, er der nogen, som kan hjælpe mig på vej.

PS. jeg ved intet om Tfilestream