Собственный шрифт в программе

[apromix]

Как в своей программе (игровой) на Дельфи вывести на канвас текст шрифтом из файла (TTF), например какой-нибудь экзотический, старорусский? Шрифт в системе не прописан, а лежит в файле возле экзешника программы. Спасибо.

[NetSpace]

Вот, держи. Сам недавно только разобрался. У меня файл CRYSTAL.TTF
возле EXEшника лежит. Но он там появляется после извлечения из файла ресурсов

procedure TForm1.LoadFont;
var Res:TResourceStream;
begin
   Res:=TResourceStream.Create(hInstance,'MYFONT',Pchar('ANYOL1'));
   Res.SavetoFile('Crystal.ttf');
   Res.Free;
   AddFontResource(PChar('Crystal.ttf'));
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
   LoadFont;
   Label1.Font.Name:='Crystal';
end;

end.

[apromix]

Работает, однако Спасибо.