Как добавить системные шрифты в компонент RibbonComboBox?

[SASFM]

Здравствуйте. Кто нибудь знает как можно получить системные шрифты с помощью компонента RibbonComboBox? Я сделал вот так:

procedure TForm1.ComboBoxFontsActionExecute(Sender: TObject);
var i:integer;
begin
    for I := 0 to screen.Fonts.Count-1 do
      RibbonComboBox1.Items.Add(Screen.Fonts.Strings[i]);
end;

Но в результате программа не отвечает и компьютер зависит и выскочить вот такая ошибка:

[Аватар]

Не пользуюсь и не знаю. Но гугл подсказывает, что там не все так просто, как хочется. Ну вот, например
http://www.webdelphi.ru/2011/02/ribb...box-v-runtime/

[min@y™]

Посмотри исходник TFontComboBox.

[kropotkina-alice]

Для обычного комбика вот так:

ComboBox1.Items:=Screen.Fonts;
ComboBox1.ItemIndex:=0;
//или
ComboBox1.Items.Assign(Screen.Fonts);
ComboBox1.ItemIndex:=0;