[Neolane]

Здравствуйте.
Нужно реализовать функцию, которая меняет регистр введённого (на русском) слова.
Нугуглив простенькую функцию обрадовался.

Код:

1 2 3 4 5 6 7 8 9

function UpperCase(s: string): string; var   i: integer; begin   result := s;   for i := 1 to length(result) do     if (result[i] in ['a'..'z', 'а'..'я']) then       result[i] := chr(ord(result[i]) - 32); end;

Но почему то срабатывает только с англ. буквами.
Пробую мучить код

Код:

1 2	Но почему то срабатывает только с англ. буквами. Пробую мучить код

результат никакой
но если написать вот так

Код:

1	if (‘п’ in ['a'..'z', 'а'..'я']) then result[i] := chr(ord(result[i]) - 32);

то срабатывает.
Наверное, всё дело в кодировке, но так с делфи недавно работаю знаний не хватает.