anchor.diff:      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;
  +    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; AMode: TMongoStreamOpenMode; const AFlags: TMongoFlags = []; const AEncryptionPassword: String = ''); overload;
       destructor Destroy; override;
       function Read(var Buffer; Count: Longint): Longint; override;
       {$IFDEF DELPHI2007}
  
positive.code:   Result := FGridFile.Write(Buffer, Count);
    inc(FBytesWritten, Result);
    CheckSerializeWithJournal;
  end;
  
  end.
  
negative.code:   SStatusMustBeOKInOrderToAllowStre = 'Status must be OK in order to allow stream read operations (D%d)';
    SFailedInitializingEncryptionKey = 'Failed initializing encryption key (D%d)';
  
  constructor TMongoStream.Create(AMongo: TMongoClient; const ADB, AFileName: UTF8String;
                                  AMode: TMongoStreamOpenMode; const AFlags: TMongoFlags = [];
                                  const AEncryptionPassword: String = '');
  begin
    Create(AMongo, ADB, SFs, AFileName, AMode, AFlags, AEncryptionPassword);
  end;
  
  constructor TMongoStream.Create(AMongo: TMongoClient; const ADB, APrefix, AFileName: UTF8String;
                                  AMode: TMongoStreamOpenMode; const AFlags: TMongoFlags = [];
                                  const AEncryptionPassword: String = '');
  begin
    inherited Create;
    FSerializeWithJournalByteWritten := SERIALIZE_WITH_JOURNAL_BYTES_WRITTEN;
  