I have created a font selector dropdown box which is populated using the code given in the answer below.
How to get the list of fonts available - Delphi XE3 + Firemon
