Событие у динамического меню

[alekola]

Помогите пожалуйста, проблема получить название нажатого подменю в mainmenu

Создаю меню вот так

//Заполняем раздел 
// в filelist листе лежит список файлов в папке 
scanmodule(path+'\menu\1c\',filelist);
parentitem:=n1c1; //устанавливаем родителя 1с
for i:=filelist.count-1 downto 0 do
begin
MenuItem :=TMenuItem.Create(Parentitem);
ParentItem.Add(MenuItem);
MenuItem.Caption :=filelist.Strings[i];
menuitem.OnClick:=Form1.occlick;
end;
//Раздел 1с заполнен

А это обработчик события нажатия на выбранное меню
Код Delphi

procedure Tform1.occlick(Sender: TObject);
begin
 with Sender as TMenuItem do
 Form1.label1.caption:=Items[MenuIndex].Caption;
end;

Компилится, меню строится, но при нажатии на любой из пунктов меню пишет MenuIndex out of range
Понимаю в чем затык, а вот как исправить не доходит.

[Пепел Феникса]

вот ведь вами приводите Sender к типу TMenuItem, почему им и не воспользоваться?

[alekola]

не хватает умения, подскажите пожалуйста

[Stilet]

procedure Tform1.occlick(Sender: TObject);
begin
 Form1.label1.caption:=TMenuItem(Sender).Caption;
end;

И все.