TFileStream: Text am Anfang einfügen in Textdatei

[Helmi]

Hallo,

mit diesem Code schreib ich in Eine Text-Datei ans Ende einen String:

Delphi-Quellcode:

  try
    FileStream := TFileStream.Create(LogFile, fmOpenReadWrite);

    with FileStream do
      begin
        //Fehler-Text
        S := ErrorText;
        S := S + #13#10;

        //
        //Am Ende der Datei schreiben (FileStream-Position = FileStream-Größe)
        Position  := Size;

        //In die vorhandene Datei schreiben
        WriteBuffer(S[1], Length(S));
      end;
  finally
    //FileStream freigeben und löschen
    FreeAndNil(FileStream);
  end;

Nur wie kann ich einen String am Anfang der Datei einfügen?