anchor.diff:    SetLength(FHashTree,0);
     FreeAndNil(FListOrderedBySha256);
     FreeAndNil(FListOrderedByAccountsData);
  +  FreeAndNil(FListOrderedByOpReference);
     inherited;
   end;
   
  
positive.code:     Procedure Delete(index : Integer);
      Procedure Clear;
      Property OperationResume[index : Integer] : TOperationResume read GetOperationResume; default;
    End;
  
    { TPCOperation }
  
negative.code:       l.Clear;
        FListOrderedBySha256.Clear;
        FListOrderedByAccountsData.Clear;
        FListOrderedByOpReference.Clear;
        FHashTree := '';
      End;
      If Assigned(FOnChanged) then FOnChanged(Self);
  