Developing.ru

Уважаемый программисты помогите примините выбранный фон из сипска ComboBox к RichEdit
Процедурка отображения есть Combobox1.Items:=Screen.Fonts; а как применить выбраный шрифт к RichEdit??

[syntax=Delphi]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];
end;
[/syntax]