anchor.diff:        _Options:Cardinal;
   
         _SortOrder:CollectionSortOrder;
  +      _Share:Collection;
   
         {$IFNDEF DISABLETHREADS}
  -      _SharedMutex:Boolean;
         _Mutex:CriticalSection;
         {$ENDIF}
   
  
positive.code:   Self.Clear();
  
    {$IFNDEF DISABLETHREADS}
    If Not _SharedMutex Then
      ReleaseObject(_Mutex);
    {$ENDIF}
  End;
  
  Procedure Collection.Lock();
  Begin
    {$IFNDEF DISABLETHREADS}
    If Assigned(_Mutex) Then
    Begin
      _Mutex.Lock();
  
negative.code: Procedure Collection.Unlock();
  Begin
    {$IFNDEF DISABLETHREADS}
    If Assigned(_Share) Then
    Begin
      _Share.Unlock();
    End Else
    If Assigned(_Mutex) Then
      _Mutex.Unlock();
    {$ENDIF}
  