怎么实现Combobox下拉内容是字体的选择

怎样实现Combobox下拉内容是字体的选择？
用combobox选择系统的字体，就是combobox的选项是系统的字体。类似font属性里的字体listbox。如何快速实现？
[解决办法]
最快速的方法：

ComboBox1->Items->Assign(Screen->Fonts);