anchor.diff:  constructor TFileStorage.Create(AOwner: TComponent);
   begin
     inherited;
  +  FLowMemoryUsage := False;
     FDatabaseFolder := '';
     FBlockChainFileName := '';
     FBlockChainStream := Nil;
  
positive.code: 
    TFileStorage = Class(TStorage)
    private
      FStorageLock : TPCCriticalSection;
      FBlockChainStream : TFileStream;
      FPendingBufferOperationsStream : TFileStream;
  
negative.code:     Procedure SetBlockChainFile(BlockChainFileName : AnsiString);
      Function HasUpgradedToVersion2 : Boolean; override;
      Procedure CleanupVersion1Data; override;
      property LowMemoryUsage : Boolean read FLowMemoryUsage write FLowMemoryUsage;
    End;
  
  implementation
  