anchor.diff:    FMemPoolOperationsComp := TPCOperationsComp.Create(Nil);
     FMemPoolOperationsComp.bank := FBank;
     FNotifyList := TList<TNodeNotifyEvents>.Create;
  +  FMemPoolAddingOperationsList := TOrderedRawList.Create;
     {$IFDEF BufferOfFutureOperations}
     FBufferAuxWaitingOperations := TOperationsHashTree.Create;
     {$ENDIF}
  
positive.code:     procedure UnlockMempoolWrite;
      //
      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;
      Function AddOperation(SenderConnection : TNetConnection; Operation : TPCOperation; var errors: String): Boolean;
      Function SendNodeMessage(Target : TNetConnection; const TheMessage : String; var errors : String) : Boolean;
      //
  
negative.code:     FreeAndNil(FNotifyList);
      step := 'Destroying Operations';
      FreeAndNil(FMemPoolOperationsComp);
      FreeAndNil(FMemPoolAddingOperationsList);
      step := 'Assigning NIL to node var';
      if _Node=Self then _Node := Nil;
      Step := 'Destroying SentOperations list';
  