Всплывающий список со шрифтами

[DR.XXX]

Здравствуйте! Как можно будет сделать так, чтобы в combobox выходил список шрифтов имеющихся в fontdialog?
Спасибо за внимание!

[zubr]

Код:

ComboBox1.Items := Screen.Fonts;

[DR.XXX]

zubr, Спасибо!

[DR.XXX]

как-то не удобно поднимать вновь этот вопрос, но теперь не получается заставить этот список работать, то есть шрифты в списке combobox есть, но не могу применить их. Например надо поменять шрифт надписи в lable, выбирая нужный шрифт из списка и не получается. Может вы подскажите как это сделать. 

[zubr]

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 Label1.Font.Name := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ComboBox1.Items := Screen.Fonts;
end;

[DR.XXX]

zubr, спасибо большое, реально помог!

[zubr]

Не за что. Приходи еще