Кривой шрифт Опции

[SMIKE]

Недавно написал в Win'98SE курсовую-игру на Паскале
В 98 все ОК, а вот в XP и ME вместо русских букв коряболы отображаются(в граф режиме) при запуске EXE-шника.

А у руководителя курсовой стоит XP и он сказал мне, чтобы я решил эту проблему(чтобы у него тоже все корректно отображалось)
Keyrus не помогает, шрифты менять пробовал - тоже ни в какую.

Может быть, кто-то знает, как решить эту проблему ???
Пишите, буду очень признателен

[Jonson]

??? Может это:

Код

function Ru(mes: string):string;
   var
       i: integer;
   begin
       for i:=1 to length(mes) do
          case mes[i] of
             'А'..'п' : mes[i] := Chr(Ord(mes[i]) - 64);
             'р'..'я' : mes[i] := Chr(Ord(mes[i]) - 16);
          end;
       rus := mes;
   end;

Вывесте текст:   writeln( Ru('Тест : абвгд...) );