Кидай на форму 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.