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.