Delphi - Cargar fuentes en un combo fox

Hola a todos:

Necesito sacar las fuentes (tipo letra) de un equipo y cargarlos en un combo box y no se como hacerlo muchas gracias

Combo.Items.Assign(Screen.Fonts);

o usar JvFontComboBox de la JVCL q tiene Options parav filtrar el tipo de fonts o incluir imagenes..

Muchas gracias lo resolvi gracias a tu ayuda un saludo.