см. Пример в  Wiki > Hiasm > Delphi > Компоненты > Массивы > Массивы > ArrayEnum

Add(MainForm,2953706,21,84)
{
 Caption="Пример использования FontsList"
 link(onCreate,8691253:doReReadFonts,[])
}
Add(Button,14129492,21,154)
{
 Left=165
 Top=15
 link(onClick,12155664:doEnum,[])
}
Add(FontsList,8691253,98,98)
{
}
Add(Memo,16682337,175,154)
{
 Left=25
 Top=50
 Width=345
 Height=200
 ScrollBars=2
}
Add(ArrayEnum,12155664,98,154)
{
 link(onItem,16682337:doAdd,[])
 link(Array,8691253:FontsArray,[])
}