anchor.diff:    // propagating operations to connected nodes, will only use one instance
     TPCOperationsStorage = Class
     private
  +    FIntTotalNewOps : Integer;
       FIntTotalAdded : Integer;
       FIntTotalDeleted : Integer;
       FMaxLocksCount : Integer;
  
positive.code: constructor TPCOperationsStorage.Create;
  begin
    FPCOperationsStorageList := TPCThreadList.Create(ClassName);
    FIntTotalAdded := 0;
    FIntTotalDeleted := 0;
    FMaxLocksCount := 0;
  
negative.code: begin
    list := LockPCOperationsStorage;
    try
      strings.Add(Format('%s Operations:%d NewAdded:%d Added:%d Deleted:%d',[ClassName,list.Count,FIntTotalNewOps,FIntTotalAdded,FIntTotalDeleted]));
      strings.Add(Format('MaxLocks:%d MaxLocksCount:%d',[FMaxLocksValue,FMaxLocksCount]));
      for i:=0 to list.Count-1 do begin
        P := PPCOperationTStorage(list[i]);
  