тип шрыфта в memo

[Pein95]

делаю чтото типа блокнота. вот нужно сделать возможность выбора шрифта, думаю ето реализировать с помощю combobox'a b свойства name в memo.
Вопрос: как можно загрузить в Combobox все имена шрифтов отсюда memo.font.name.
зарание спасибо)

[ArtGrek]

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items := Screen.Fonts; // загружает в ComboBox все шрифты что есть в windows
end;

[Pein95]

спс) держы +)