anchor.diff:        if FGridFile = nil then
           raise EMongoStream.CreateFmt(SFileNotFound, [AFileName, E_FileNotFound]);
       end;
  +  if AEncryptionPassword <> '' then
  +    FGridFile.Password := AEncryptionPassword;
   end;
   
   destructor TMongoStream.Destroy;
   begin
  +  Flush;
     FGridFile := nil;
     FGridFS := nil;
     inherited;
  
positive.code: {$ENDIF}
  begin
    CheckGridFile;
    FGridFile.Seek(Offset, TSeekOrigin(Origin));
    Result := FGridFile.Position;
  end;
  
negative.code: function TMongoStream.Read(var Buffer; Count: Longint): Longint;
  begin
    CheckGridFile;
    Flush;
    Result := FGridFile.Read(Buffer, Count);
  end;
  
  