Fonts in Combobox auslesen und in Richedit verwenden

[MSSSSM]

zuerst im formCreate:

Delphi-Quellcode:

ComboBox1.Items.Assign(Screen.Fonts);
//oder
ComboBox1.Items.AddStrings(Screen.Fonts);

und dann beim change (combobox):
Memo1.Font.Name:=Screen.Fonts[combobox1.itemindex]; vorher ggf. überprüfen ob es den font gib bzw. der string '' ist...

mfg