[ART]

Кидай на форму Button и MainMenu. В MainMenu создай первый пункт (типа 'файл' в программах).
В обработчиках событий пиши следующее:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 item: TMenuItem;
 i: integer;
begin
//динамически создаем пункты меню
for i := 1 to 15 do begin
 item  :=  TMenuItem.Create(self);
 MainMenu1.Items[0].Add(item);
 item.Caption  :=  'item '  +  inttostr(i);
 item.tag  :=  i;
 item.OnClick  :=  ItemClick;
end;
end;

procedure TForm1.ItemClick(Sender: TObject);
begin
 Showmessage(IntToStr((Sender as TMenuItem).tag)) ; //с tag'ом можешь делать все,  что хочешь 
end;

end.