[lmikle]

Это вычисление кода для русских букв.
функция Ord возвращает код символа. Теперь смотрим как расположены русские символы в кодовой таблице и понимаем логику вычисления.

А вообще, вся эта функция бесполезна, т.к. есть встроенная AnsiUpperCase().