Русификация UpCase

Функция UpCase работает только с латинскими буквами.
Эта функция умеет работать и с кириллицей.

function UpCase(c:char):char;
begin
if (c>='a') and (c<='z') then c:=chr(ord('A')+ord(c)-ord('a'))
else if (c>='а') and (c<='п') then c:=chr(ord('А')+ord(c)-ord('а'))
else if (c>='р') and (c<='я') then c:=chr(ord('Р')+ord(c)-ord('р'));
result:=c;
end;