如何用delphi 读取系统字体

Question

使用richedit时，想用一个combox列出系统包含的字体，用来改变richedit中的字体，请问如何读取系统字体 ？

Answer 1

form1.combobox1.items:=screen.fonts;
这样还是不行啊  是不是还要改什么地方啊
希望指点一下

Answer 2

form1.combobox1.items.Assign(screen.fonts);

Answer 3

procedure tform1.formcreate(sender:tobject);
begin
   combobox1.items:=screen.fonts;
   combobox1.text:=richedit1.font.name;
   spinedit1.value:=richedit1.font.size;
end;

Answer 4

procedure tform1.combobox1change(sender:tobject);
begin
   richedit1.selattributed.name:=combobox1.text;
end;