anchor.diff:    Result := FGridFile.Write(Buffer, Count);
     inc(FBytesWritten, Result);
     CheckSerializeWithJournal;
  +  FChanged := Result > 0;
   end;
   
   end.
  
positive.code:     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;
  
      property LastSerializeWithJournalResult: IBson read FLastSerializeWithJournalResult;
      property Mongo: TMongoClient read FMongo;
      property SerializedWithJournal: Boolean read FSerializedWithJournal write FSerializedWithJournal default False;
  
negative.code: {$IFDEF DELPHI2007}
  function TMongoStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
  begin
    CheckGridFile;
    Flush;
    FGridFile.Seek(Offset, Origin);
    Result := FGridFile.Position;
  end;
  