Cargar archivo de tipo de letra TTF

[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.