Delphi ID3 Tag Editor

Diesen Thread möchte ich nutzen um Fragen zu meinem zweiten Delphiprojekt zu stellen, damit ihr, wahrscheinlich vor allem Freezy, mir dabei helfen könnt, in Delphi besser zu werden. Im anderen Thread werd ich jetzt nur noch über das große Schulprojekt schreiben, auch wenn das anders geplant war.

Also:
Ich will, dass meine function writeID3Tag die Tag-Infos aus edit-Feldern an das Ende der geöffneten mp3-Datei schreibt. Wie ich das anstelle ist mir allerdings ein Rätsel, da ich aus meiner readID3Tag function nicht schlau werde, die ich mit Hilfe eines Codebeispiels geschrieben hab.

Code:

---

implementation
function readID3Tag(FileName: string): TID3Tag;
var
  FS: TFileStream;
  Buffer: array [1..128] of Char;
begin
  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 := Copy(Buffer, 4, 30); //Index, Count
      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;
  finally
    FS.Free;
  end;
end;

function writeID3Tag(FileName,Titel,Artist,Album,Year: string): TID3Tag;
var FS: TFilestream;
    i,x:integer;
    Buffer: array [1..128] of char;
begin
  FS:=TFilestream.Create(Filename, fmopenRead or fmShareDenyWrite);
  try
  FS.Seek(-128,sofromend);
  for i:=4 to 33 do
    for x:=1 to 30 do
    Buffer[i]:=(Copy(Titel,0,x));
  {Buffer[34]:=Artist;
  Buffer[64]:=Album;
  Buffer[94]:=Year;}
  FS.Write(Buffer, 128);
  finally
  FS.free;
end;
end;

---

Wenn mir wer ein bissel auf die Sprünge helfen kann, wie ich die function writeID3Tag richtig schreibe, wär ich schon ein großes Stück weiter.
Wenn ihr mir nich helfen könnt, würde ich auch ein Stück weiter kommen, wenn mir wer sagen kann, wie ich aus einem String eine Kette von chars mache.