Cargar archivo de tipo de letra TTF

[hackcgm]

Empezado por dabas

No funciona bien del todo.
Esta linea debe contener el nombre de la fuente.

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject); begin ... Memo1.Font.Name :='nombre interno de la fuente'; end;


Como obtengo dicho nombre con una funcion?
Lo que pretendo es visualizar las fuentes que tengo en una carpeta sin tener que instalarlas en windows.

PD:
Evidentemente el evento no sera FormCreate
y si cada vez que pico en una lista para cargar una fuente, ¿cuando la descargo, o libero los recursos?

Gracias.

como puedo cargar todos los tipos de letra de windows en un memo