Код применения своего шрифта не работает.

[Alexandr17-10]

Вот процедуры дл установки шрифта в программу

Procedure AddFont(NameFont:String);
var str:String;
begin
  str:=ExtractFilePath(Application.ExeName)+'AEFont\'+NameFont+'.ttf';
  AddFontResource(StringToOleStr(str));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;  //применяем его
end;

Procedure ClearFont(NameFont:String);
var str:String;
begin
  str:=ExtractFilePath(Application.ExeName)+'AEFont\'+NameFont+'.ttf';
  RemoveFontResource(StringToOleStr(str));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

Вот код для пользования этими процедурами

or i := 0 to High(TextArrayOf) do begin
    TextArrayOf[i].Text:=GetStrIni('AE-->Maps',IntToStr(i)+'Caption',ExtractFilePath(Application.ExeName)+'AE_Project.aeIni');
    TextArrayOf[i].Names:=GetStrIni('AE-->Maps',IntToStr(i)+'Name',ExtractFilePath(Application.ExeName)+'AE_Project.aeIni');
    TextArrayOf[i].txtColor:=GetClrIni('AE-->Maps',IntToStr(i)+'TColor',ExtractFilePath(Application.ExeName)+'AE_Project.aeIni');
    TextArrayOf[i].txtFont:=GetStrIni('AE-->Maps',IntToStr(i)+'TFont.Name',ExtractFilePath(Application.ExeName)+'AE_Project.aeIni');
    AddFont(TextArrayOf[i].txtFont);
    TextArrayOf[i].txtSize:=GetIntIni('AE-->Maps',IntToStr(i)+'TFont.Size',ExtractFilePath(Application.ExeName)+'AE_Project.aeIni');
    ListBox1.Items.Add('');
  end;

А вот его применения

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ListBox1.Canvas.Font.Name:=TextArrayOf[Index].txtFont;
  ListBox1.Canvas.Font.Size:=TextArrayOf[Index].txtSize;
  ListBox1.Canvas.Font.Color:=TextArrayOf[Index].txtColor;
  ListBox1.ItemHeight:=TextArrayOf[Index].txtSize+6;
  ListBox1.Canvas.FillRect(Rect);
  ListBox1.Canvas.TextOut(Rect.Left,Rect.Top,TextArrayOf[Index].Text);
end;

Все шрифты находиться в папке AEFont
Имя шрифта = zanes.ttf
Переменная TextArrayOf[Index].txtFont - содержит имя шрифта без его расширения
Можете сказать что я не так делаю.

[phomm]

Не совсем понятно, что надо, что не получается.

Вроде проблема в том, что Вы пытаетесь указать имя шрифта (свойство TFont.Name) как имя файла. Это неправильно, т.к это свойство для т.н. FontFace - внутреннего имени шрифта и к имени файла отношения не имеет никакого, но я не знаю, что у Вас из инишки читается... (по Вашим словам - имя файла без расширения). Да Вы даже процедуры GetStrIni не приводите.
ПС. Код я бы упростил, введите переменную для ExtractFilePath(Application.ExeName ) и для неё же плюс всякие 'AE_Project.aeIni', 'AEFont\' , также константу для 'AE-->Maps'
Довольно опасна неявная связка массива TextArrayOf и итемов в листбоксе.
Возможно, будут полезны мои исследования по шрифтам:
http://programmersforum.ru/showthread.php?t=180046