anchor.diff:  constructor TPCOperationsStorage.Create;
   begin
     FPCOperationsStorageList := TPCThreadList.Create(ClassName);
  +  FIntTotalNewOps := 0;
     FIntTotalAdded := 0;
     FIntTotalDeleted := 0;
     FMaxLocksCount := 0;
  
positive.code:       P^.locksCount:=0;
        P^.ptrPCOperation := APCOperation;
        list.Insert(iPos,P);
      end;
      inc(P^.locksCount);
      inc(FIntTotalAdded);
  
negative.code:   // propagating operations to connected nodes, will only use one instance
    TPCOperationsStorage = Class
    private
      FIntTotalNewOps : Integer;
      FIntTotalAdded : Integer;
      FIntTotalDeleted : Integer;
      FMaxLocksCount : Integer;
  