anchor.diff:    lFileAccessMode: Word;
     lRetries: Integer;
   begin
  -  lFileAccessMode := fmOpenWrite or fmShareDenyWrite;
  +  lFileAccessMode := fmOpenWrite or fmShareDenyNone;
     if not TFile.Exists(aFileName) then
       lFileAccessMode := lFileAccessMode or fmCreate;
   
  
positive.code:     function GetLogFileName(const aTag: string;
        const aFileNumber: Integer): string;
      procedure InternalWriteLog(const aStreamWriter: TStreamWriter;
        const aValue: string);
    public const
      { @abstract(Defines the default format string used by the @link(TLoggerProFileAppender).)
        The positional parameters are the followings:
  
negative.code:       lFileStream := TFileStream.Create(aFileName, lFileAccessMode);
        try
          lFileStream.Seek(0, TSeekOrigin.soEnd);
          Result := TStreamWriter.Create(lFileStream, TEncoding.Default, 32);
          Result.AutoFlush := True;
          Result.OwnStream;
          break;
        except
  