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

    with FileStream do
      begin
        //Fehler-Text
        S := ErrorText;
        S := StringReplace(S, '<date>', DateToStr(date), [rfReplaceAll]);
        S := StringReplace(S, '<time>', TimeToStr(time), [rfReplaceAll]);
        S := S + #13#10;

        //
        If FAddAtEnd then
          //Am Ende der Datei schreiben (FileStream-Position = FileStream-Größe)
          Position := Size
        else
          begin
            //Am Anfang der Datei schreiben

            //Vorhandene Datei auslesen
            Stream_Laenge := Size;

            If Stream_Laenge > 0 then
              begin
                SetLength(Buffer, Stream_Laenge);
                ReadBuffer(Buffer[1], Stream_Laenge);
              end;

            //Positionen setzen
            Size := 0;
            Position := 0;

            //Text zusammenfügen
            S := S + Buffer;
          end;

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