Delphi - llenado combo con fuentes tipos de letras

Hola:

Necesito colocar un objeto igual o parecido a un ComboBox k me permita agregar todos los tipos de fuentes para las letras. (como en word)

«» Arial Unicode
«» MS Mincho
«» Agency FB
«» Algerian
«» Arial
«» Arial Baltic
«» Arial Black
«» Arial CE
«» Arial CYR
«» Arial Greek
«» Arial Narrow (etc.......)

no sé si haya una base de datos k contenga todos los tipos o detecte los tipos de fuentes según se encuentren instalados en las máquinas de los usuarios.

tu ayuda para mi es muy importante, gracias..... gaby
[email protected]

Esto fue lo primero que encontré en google, y funciona bien, te carga los nombres de las fuentes instaladas en tu pc

procedure TForm1.FormShow(Sender: TObject);
begin
ComboBox1.Items.Assign(Screen.Fonts);
ComboBox1.Text := 'Fonts...';
end;

Fuente

http://www.codefoot.com/delphi/fonts_system.shtml

kasjdhkjashfds