anchor.diff:      function Seek(Offset: {$IFDef Enterprise} Int64 {$Else} longint {$EndIf}; Origin: {$IFNDEF VER130}TSeekOrigin{$Else}{$IFDef Enterprise}TSeekOrigin{$ELSE}Word{$ENDIF}{$ENDIF}): {$IFDef Enterprise} Int64 {$Else} longint {$EndIf}; override;
       {$ENDIF}
       function Write(const Buffer; Count: Longint): Longint; override;
  -
  +    procedure Flush;
  +
  +    property GridFS : IMongoGridfs read FGridFS;
  +    property GridFSFile : IMongoGridfsFile read FGridFile;
       property LastSerializeWithJournalResult: IBson read FLastSerializeWithJournalResult;
       property Mongo: TMongoClient read FMongo;
       property SerializedWithJournal: Boolean read FSerializedWithJournal write FSerializedWithJournal default False;
  
positive.code:     procedure SetSize(NewSize: {$IFDef Enterprise} Int64 {$Else} longint {$EndIf}); override;
      {$ENDIF}
    public
      constructor Create(AMongo: TMongoClient; const ADB, AFileName: UTF8String; AMode: TMongoStreamOpenMode; const AFlags: TMongoFlags; const AEncryptionPassword: String = ''); overload;
      constructor Create(AMongo: TMongoClient; const ADB, APrefix, AFileName: UTF8String; const AMode: TMongoStreamOpenMode; const AFlags: TMongoFlags; const AEncryptionPassword: String = ''); overload;
      destructor Destroy; override;
      function Read(var Buffer; Count: Longint): Longint; override;
      {$IFDEF DELPHI2007}
  
negative.code:     begin
        FGridFS.RemoveFile(AFileName);
        FGridFile := FGridFS.CreateFile(AFileName, AFlags);
        if FGridFile = nil then
          raise EMongoStream.CreateFmt(SFailedToCreateFile, [AFileName, E_FailedToCreateFile]);
      end
      else
      begin
  