помогите с решением, преобразование заголовков Опции

[Frozen83]

Люди...помогите...дали мне такое задания для типовика ...озвучиваю: Преобразовать заголовки к верхнему регистру, используя русский и латинский регистры.
Ума не приложу, как делать, а надо. Жду помощи.

[Altair]

Вот процедура:

Код

Function UpStr(S:String):String; {перевод строки в верхний регистр}
Var I:Byte;
Begin
For I:=1 To ORD(S[0]) Do
Begin
 Case S[I] Of
  'a'..'z':S[I]:=Chr(Ord(S[I])-$20);
  'а'..'п':S[I]:=Chr(Ord(S[I])-$20);
  'р'..'я':S[I]:=Chr(Ord(S[I])-$50)
 End
End;
UpStr:=S
End;

Предпочитаю пользовыаться всегда ей, она САМАЯ быстрая.
Взято из хакерской проги для взлома PWL виндовса, 10 лет назад! так что это раритет!