diff --git a/Source/JsonDataObjects.pas b/Source/JsonDataObjects.pas
index 47df701..ffd5fc5 100644
--- a/Source/JsonDataObjects.pas
+++ b/Source/JsonDataObjects.pas
@@ -5941,7 +5941,8 @@ function TJsonObject.CompareSortedName(SortIndex1, SortIndex2: Integer): Integer
 
   Result := Length(P1^) - Length(P2^);
   if Result = 0 then
-    Result := CompareStr(P1^, P2^);
+    //Result := CompareStr(P1^, P2^);
+    Result := CompareText(P1^, P2^);
 end;
 
 procedure TJsonObject.QuickSortNames(L, R: Integer);
@@ -6009,7 +6010,8 @@ function TJsonObject.InternIndexOfSortedName(const Name: string): Integer;
     I := (Result + H) shr 1;
     C := Length(FNames[FSortedNames[I]]) - NameLen;
     if C = 0 then
-      C := CompareStr(FNames[FSortedNames[I]], Name);
+      C := CompareText(FNames[FSortedNames[I]], Name);
+      //C := CompareStr(FNames[FSortedNames[I]], Name);
     if C < 0 then
       Result := I + 1
     else
@@ -6041,7 +6043,8 @@ function TJsonObject.InternFindSortedNameInsertIndex(NameIndex: Integer): Intege
     I := (Result + H) shr 1;
     C := Length(FNames[FSortedNames[I]]) - NameLen;
     if C = 0 then
-      C := CompareStr(FNames[FSortedNames[I]], FNames[NameIndex]);
+      //C := CompareStr(FNames[FSortedNames[I]], FNames[NameIndex]);
+      C := CompareText(FNames[FSortedNames[I]], FNames[NameIndex]);
     if C < 0 then
       Result := I + 1
     else