Enum Fonts Delphi

Displays list / list of fonts installed on the system.

Use the command Screen.Fonts.

Example of use:
TForm1.FormCreate procedure (Sender: TObject);
var
   i: Integer;
begin
   ComboBox1.Items.Clear;
   for i: = 0 to Screen.Fonts.Count - 1 do
     ComboBox1.Items.Add (Screen.Fonts.Strings [i]);
end;