anchor.diff:    TPCDaemonMapper = Class(TCustomDaemonMapper)
     private
       FLog : TLog;
  -    procedure OnPascalCoinInThreadLog(logtype : TLogType; Time : TDateTime; AThreadID : TThreadID; Const sender, logtext : String);
     protected
       Procedure DoOnCreate; override;
       Procedure DoOnDestroy; override;
  
positive.code:       Try
          // Check Database
          FNode.Bank.StorageClass := TFileStorage;
          TFileStorage(FNode.Bank.Storage).DatabaseFolder := TNode.GetPascalCoinDataFolder+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);
  
negative.code:         Try
            Repeat
              Sleep(100);
            Until (Terminated) or (Application.Terminated);
          finally
            FreeAndNil(FMinerServer);
          end;
  