Динамическое добавление пунктов меню

Честно говоря, я так и не понял к чему вы хотите добавлять новые пункты меню - к верхнему уровню или в качестве подменю. На всякий случай я публикую оба метода. Выбирайте любой.

Новый элемент верхнего уровня:

procedure tform1.addmainitem(s: string);
var
  newitem: Tmenuitem;
begin
  newitem := tmenuitem.create(Mainmenu1);
  newitem.caption := s;
  {если вы хотите определить событие onclick
  newitem.onclick:=Dynamenuclick; }
  {добавляем это к верхнему уровню меню}
  mainmenu1.items.insert(mainmenu1.items.count, newitem);
  removemenu1.enabled := true;
  addmenuitem1.enabled := true;
end;

Создание подменю:

procedure tform1.addsubitem(s: string; to : integer);
var
  newitem, toitem: Tmenuitem;
begin
  {to = верхний уровень меню для нового пункта}
  toitem := mainmenu1.items[to ];
  newitem := tmenuitem.create(toitem);
  newitem.caption := s;
  {если вы хотите определить событие onclick
  newitem.onclick:=Dynamenuclick; }
  toitem.onclick := nil;
  toitem.insert(toitem.count, newitem);
  removemenuitem1.enabled := true;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 172 • TDictionary Custom Sort 3 344 • Fast Watermark Sources 3 095 • 3D Designer 4 853 • Sik Screen Capture 3 350 • Patch Maker 3 556 • Айболит (remote control) 3 665 • ListBox Drag & Drop 3 019 • Доска для игры Реверси 81 745 • Графические эффекты 3 948 • Рисование по маске 3 253 • Перетаскивание изображений 2 633 • Canvas Drawing 2 761 • Рисование Луны 2 586 • Поворот изображения 2 196 • Рисование стержней 2 171 • Paint on Shape 1 569 • Генератор кроссвордов 2 240 • Головоломка Paletto 1 770 • Теорема Монжа об окружностях 2 237 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 059 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 477 • Программа укладки плитки 1 219 • Генератор лабиринта 1 548 • Проверка числового ввода 1 368 • HEX View 1 497 • Физический маятник 1 359