anchor.diff:   NamedGroupStringList:=TStringList.Create;
    NamedGroupStringIntegerPairHashMap:=TFLREStringIntegerPairHashMap.Create;
   
  - ThreadLocalStorageInstanceCriticalSection:=TCriticalSection.Create;
  + ThreadLocalStorageInstanceManagerCriticalSection:=TCriticalSection.Create;
   
    ThreadLocalStorageInstances:=nil;
    FreeThreadLocalStorageInstances:=nil;
  
positive.code:    break;
    until true;
   finally
    ThreadLocalStorageInstanceCriticalSection.Enter;
    try
     ThreadLocalStorageInstance.FreeNext:=FreeThreadLocalStorageInstances;
     FreeThreadLocalStorageInstances:=ThreadLocalStorageInstance;
    finally
     ThreadLocalStorageInstanceCriticalSection.Leave;
    end;
   end;
  end;
  
negative.code:     ThreadLocalStorageInstance:TFLREThreadLocalStorageInstance;
  begin
   result:=false;
   ThreadLocalStorageInstanceManagerCriticalSection.Enter;
   try
    ThreadLocalStorageInstance:=FreeThreadLocalStorageInstances;
    if assigned(ThreadLocalStorageInstance) then begin
  