Finding System Fonts with Delphi

Question

What is the best way to find all the system fonts a user has available so they can be displayed in a dropdown selection box?

I would also like to distinguish between Un

Answer 1

I can answer half your question, you can get a list of the Fonts that your current environment has access to as a string list from the global Screen object

i.e.

Listbox1.Items.AddStrings(Screen.Fonts);