utlGenerics: don't free objects used as keys in TutlMap<>

uutlGenerics.pas

@@ -1117,7 +1117,8 @@ end;
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 procedure TutlCustomMap.THashSet.DestroyItem(const aItem: PListItem; const aFreeItem: Boolean);
 begin
-  utlFreeOrFinalize(aItem^.data.key,   TypeInfo(aItem^.data.key),   aFreeItem and OwnsObjects);
+  // never free objects used as keys, but do finalize strings, interfaces etc.
+  utlFreeOrFinalize(aItem^.data.key,   TypeInfo(aItem^.data.key),   false);
   utlFreeOrFinalize(aItem^.data.value, TypeInfo(aItem^.data.value), aFreeItem and OwnsObjects);
   inherited DestroyItem(aItem, aFreeItem);
 end;