anchor.diff:  Var _FLog : TLog;
   
   { TPCDaemonThread }
  +
  +function TPCDaemonThread.GetDataFolder: String;
  +Var LIniDataFolder : String;
  +begin
  +  LIniDataFolder := FIniFile.ReadString(CT_INI_SECTION_GLOBAL,CT_INI_IDENT_DATA_FOLDER,'').Trim;
  +  if (LIniDataFolder.Length=0) then begin
  +    LIniDataFolder:=TNode.GetPascalCoinDataFolder;
  +  end else begin
  +    TNode.SetPascalCoinDataFolder(LIniDataFolder);
  +  end;
  +  ForceDirectories(LIniDataFolder);
  +  Result := LIniDataFolder;
  +end;
   
   procedure TPCDaemonThread.OnNetDataReceivedHelloMessage(Sender: TObject);
   Var LNsarr : TNodeServerAddressArray;
  
positive.code:     FIniFile : TIniFile;
      FMaxBlockToRead: Int64;
      FLastNodesCacheUpdatedTS : TTickCount;
      procedure OnNetDataReceivedHelloMessage(Sender : TObject);
      procedure OnInitSafeboxProgressNotify(sender : TObject; const message : String; curPos, totalCount : Int64);
    protected
  
negative.code:       Try
          // Check Database
          FNode.Bank.StorageClass := TFileStorage;
          TFileStorage(FNode.Bank.Storage).DatabaseFolder := GetDataFolder+PathDelim+'Data';
          TFileStorage(FNode.Bank.Storage).LowMemoryUsage := FIniFile.ReadBool(CT_INI_SECTION_GLOBAL,CT_INI_IDENT_LOWMEMORY,False);
          // By default daemon will not download checkpoint except if specified on INI file
          TNetData.NetData.MinFutureBlocksToDownloadNewSafebox := FIniFile.ReadInteger(CT_INI_SECTION_GLOBAL,CT_INI_IDENT_MINPENDINGBLOCKSTODOWNLOADCHECKPOINT,0);
  