rtl: fixed AnsiSameText using toLowerCase to use default locale

packages/rtl/sysutils.pas

@@ -1411,7 +1411,7 @@ end;
 
 function AnsiSameText(const s1, s2: String): Boolean; assembler;
 asm
-  return s1.localeCompare(s2) == 0;
+  return s1.toLowerCase() == s2.toLowerCase();
 end;
 
 function AnsiCompareStr(const s1, s2: String): Integer;