Result := CompareString(LOCALE_USER_DEFAULT, SORT_STRINGSORT,
       PChar(Str), Length(Str), PChar(g_CI.FDispName),
       Length(g_CI.FDispName));

какие соображения и мысли могли сподвигнуть разработчиков на применение именно такого способа сравнения двух строк?