anchor.diff:    err: bson_error_t;
     query: IBson;
   begin
  +  FillChar(err, SizeOf(bson_error_t), 0);
     if AQuery = nil then
       query := NewBson
     else
  
positive.code:     FNativeGridfs: Pointer;
      FError: bson_error_t;
      function FlagsToNative(AFlags: TMongoFlags): Integer;
    public
      constructor Create(ANativeGridfs: Pointer);
      destructor Destroy; override;
  
negative.code:   end;
  end;
  
  procedure TMongoGridfs.RaiseFindFileError(err: bson_error_p);
  begin
    if err.code = 0 then
      raise EMongoGridfs.Create('File not found')
    else
      raise EMongoGridfs.Create(@err);
  end;
  
  procedure TMongoGridfs.RemoveFile(const AName: UTF8String);
  begin
    if not mongoc_gridfs_remove_by_filename(FNativeGridfs, PAnsiChar(AName),
  