Delphi枚举可用字体，也就是列出windows系统中所有安装的字体名称，向组合框中添加系统中已经安装的字体名称-Delphi enumerate available fonts, windows system that is listed in the name of all installed fonts, add to the combo box system has been installed font name