Возможно ли использовать в Delphi шрифты не установленные в системе?

procedure TForm1.FormCreate(Sender: TObject);
begin
  //объявляем свой шрифт
  AddFontResource(‘IZHITSA.TTF’) ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
  //применяем его
  Button1.f
ont.name := ‘IZHITSA’;
  //Button1.font.size := 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //ликвидируем
  RemoveFontResource(‘IZHITSA.TTF’) ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;