anchor.diff:    {$IFNDEF DISABLETHREADS}
     If (Assigned(Share)) Then
     Begin
  -    _Mutex := Share._Mutex;
  -    _SharedMutex := True;
  +    _Share := Share;
  +    _Mutex := Nil;
     End Else
     Begin
  -    _SharedMutex := False;
  +    _Share := Nil;
       If (Options And coThreadSafe<>0) Then
         _Mutex := CriticalSection.Create({Self.ClassName +CardinalToString(GetTime())})
       Else
  
positive.code: Procedure Collection.Unlock();
  Begin
    {$IFNDEF DISABLETHREADS}
    If Assigned(_Mutex) Then
      _Mutex.Unlock();
    {$ENDIF}
  
negative.code:       _Options:Cardinal;
  
        _SortOrder:CollectionSortOrder;
        _Share:Collection;
  
        {$IFNDEF DISABLETHREADS}
        _Mutex:CriticalSection;
        {$ENDIF}
  
  