incluir fuente (tipo de letra) en aplicacion Delphi

[gulder]

hola advancexz como andas espero que bien bueno lo que se me ocurre es hacer lo siguiente, este truco es el numero 33 de trucomania y lo que hace es cargar el font desde una direccion especifica, que tal si tu agregas la fuente an la carpeta de tu aplicacion y con este truco podrias cargarlo aqui va:

Para cargarlo, (por ejemplo en el evento OnCreate de tu form):

Código Delphi [-]
   procedure TForm1.FormCreate(Sender: TObject);
      begin
        AddFontResource('c:\FONTS\FUENTE.TTF');
        SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
      end;

Y al salir de tu aplicación, lo liberas con:

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
      begin
        RemoveFontResource('D:\FONTS\FUENTE.TTF');
        SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
      end;

espero que te funcione puesto que de casualidad en estos momentos lo estoy utilizando para lo mismo que preguntas saludes transmitiendo en directo desde mi cuarto