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.

[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

[Draker]

Creo que seria mejor en un ListBox no?, jeje bueno eso digo yo, y lo harias de la siguiente manera:

Código Delphi [-]
    ListBox1.Items.Clear;
    ListBox1.Items := Screen.Fonts;
    ListBox1.ItemIndex := 0;

Claro solo las fuentes que tienes instaladas en el sistema.