TMainMenu и его подменю

[Albenous]

Как в одном из подменю TMainMenu вывести список всех файлов определенного расширения? Список файлов я нашел - можно запихнуть его в Memo или filelistbox А вот как создать такое же количество пунктов меню с такими же названиями как имена файлов - запор.
В кулибе (первая книга) есть инфа, но я не догнал многого. Например, количество пунктов меню.

З.Ы. про класс TMenuItem напишите, пожалуйста, поподробнее. Thanks.

[R2AS]

То есть ты хочешь динамически изменять количество пунктов в меню ?

[Albenous]

То есть ты хочешь динамически изменять количество пунктов в меню ?

Совершенно верно. Причем сделать это нужно только единожды - при запуске программы т.е. создании формы.

[ClauZzz]

Мдя....
{MainMenu уже создано глобально}
var
MenuItem :TMenuItem;
ParentItem :TMenuItem;
begin
{Считаю, что StringList создан и заполнен нужной инфой}
ParentItem - родительский элемент Меню
for i:=StringList.count-1 downto 0 do
begin
MenuItem :=TMenuItem.Create(ParentItem);
ParentItem.Add(MenuItem);
MenuItem.Caption :=StringList.Strings[i];
MenuItem.ImageIndex :={нужный};
MenuItem.Hint :='Файл '+StringList.Strings[i];
end;
end;