Проблема с графическим выводом текста

[Alex Cones]

Вот, что получаю:

Вот, что внутри:

UNTGraph.DrawText('ДЖАСТ ФО ГРЕЙТ ЛУЛЗ' ,50, 50);

Procedure LoadFontA;
   Var
    I : Integer;
   Begin
   For I := $20 To $DF Do
     If UNTService.FileExists(CurDir + '\Fonts\' + DecToHex(I) + '.ftf') Then
      LoadFromFile(Warehouse.ASCII[I], PChar(CurDir + '\Fonts\' + DecToHex(I) + '.ftf'));
   End;

DecToHex дает правильные значения. LoaFromFile многократно проверена и работает. Файлы есть.

 Procedure DrawText(Str : String; X, Y : Integer);
 Var
  I : Integer;
  DX : Integer;
  Loc     : HDC;
 Begin
  Loc := CreateCompatibleDC(Warehouse.Buffer.DC);
  DX := 0;
  For I := 1 To Length(Str) Do
   Begin
    SelectObject(Loc, Warehouse.ASCII[Ord(Str[I])].Bitmap);
    Inc(DX, Warehouse.ASCII[Ord(Str[I])].Width + 1);
    TransparentBlt(Warehouse.Buffer.DC,
                   X + DX,
                   Y,
                   Warehouse.ASCII[Ord(Str[I])].Width,
                   Warehouse.ASCII[Ord(Str[I])].Height,
                   Loc,
                   0,
                   0,
                   Warehouse.ASCII[Ord(Str[I])].Width,
                   Warehouse.ASCII[Ord(Str[I])].Height,
                   $FF00FF);

   End;
  DeleteDC(Loc);
 End;

В чем же причина?

[Alex Cones]

Локализовал проблему:
Если писать

UNTGraph.DrawText(Chr($C7) + Chr($C6) ,50, 50);

То выводит "ЗЖ", т.е. то, что надо.