anchor.diff:     break;
     until true;
    finally
  -  ThreadLocalStorageInstanceCriticalSection.Enter;
  +  ThreadLocalStorageInstanceManagerCriticalSection.Enter;
     try
      ThreadLocalStorageInstance.FreeNext:=FreeThreadLocalStorageInstances;
      FreeThreadLocalStorageInstances:=ThreadLocalStorageInstance;
     finally
  -   ThreadLocalStorageInstanceCriticalSection.Leave;
  +   ThreadLocalStorageInstanceManagerCriticalSection.Leave;
     end;
    end;
   end;
  
positive.code:  NamedGroupStringList:=TStringList.Create;
   NamedGroupStringIntegerPairHashMap:=TFLREStringIntegerPairHashMap.Create;
  
   ThreadLocalStorageInstanceCriticalSection:=TCriticalSection.Create;
  
   ThreadLocalStorageInstances:=nil;
   FreeThreadLocalStorageInstances:=nil;
  
negative.code:    ThreadLocalStorageInstances:=ThreadLocalStorageInstance;
    end;
   finally
    ThreadLocalStorageInstanceManagerCriticalSection.Leave;
   end;
   try
    ThreadLocalStorageInstance.Input:=AInput;
  