Cargar archivo de tipo de letra TTF

[madriles]

hola
si lo que quieres es usar una fuente determinada, pero sin cargarla en las fuentes de windows puedes hacer lo siguiente

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   AddFontResource('RutaCompletaDeLaFuente\nombre.ttf');
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
   Memo1.Font.Name := 'RutaCompletaDeLaFuente\nombre.ttf';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   RemoveFontResource('RutaCompletaDeLaFuente\nombre.ttf'');
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

para evitarte problemas es aconsejable que la fuente este en el directorio donde este tu ejecutable, aunque no es necesario.
un saludo