anchor.diff:    s : String;
   begin
     Result := false;
  -  if Not TPCThread.TryProtectEnterCriticalSection(Self,4000,FLockNodeOperations) then begin
  +  if Not TPCThread.TryProtectEnterCriticalSection(Self,4000,FLockMempool) then begin
       s := 'Cannot Send node message due blocking lock operations node';
       TLog.NewLog(lterror,Classname,s);
       if TThread.CurrentThread.ThreadID=MainThreadID then raise Exception.Create(s) else exit;
  
positive.code:     Property Bank : TPCBank read FBank;
      Function NetServer : TNetServer;
      Procedure NotifyNetClientMessage(Sender : TNetConnection; Const TheMessage : String);
      //
      Property Operations : TPCOperationsComp read FOperations;
      //
      Function AddNewBlockChain(SenderConnection : TNetConnection; NewBlockOperations: TPCOperationsComp; var newBlockAccount: TBlockAccount; var errors: String): Boolean;
      Function AddOperations(SenderConnection : TNetConnection; OperationsHashTree : TOperationsHashTree; OperationsResult : TOperationsResumeList; var errors: String): Integer;
  
negative.code:   TLog.NewLog(ltInfo,ClassName,'TNode.Create '+NodeVersion);
    inherited;
    FDisabledsNewBlocksCount := 0;
    FLockMempool := TPCCriticalSection.Create('TNode_LockMempool');
    FOperationSequenceLock := TPCCriticalSection.Create('TNode_OperationSequenceLock');
    FBank := TPCBank.Create(Self);
    FBCBankNotify := TPCBankNotify.Create(Self);
    FBCBankNotify.Bank := FBank;
    FBCBankNotify.OnNewBlock := OnBankNewBlock;
    FNetServer := TNetServer.Create;
    FMemPoolOperationsComp := TPCOperationsComp.Create(Nil);
    FMemPoolOperationsComp.bank := FBank;
    FNotifyList := TList<TNodeNotifyEvents>.Create;
    {$IFDEF BufferOfFutureOperations}
    FBufferAuxWaitingOperations := TOperationsHashTree.Create;
  