Добавить пункты меню в TMainMenu

[Shouldercannon]

Доброго времени суток!
Есть меню
Хочу в пункт меню Расширения добавить пункты и подпункты. не могу сделать. Вот набросок

procedure TFormMain.AddNewItemFromMenu(SL: TStringList);
var
  MM, MItem: TMenuItem;
  I: Integer;
begin
  // Если пункт меню существует
  if Menu.Items.IndexOf(Menu.Items.Find('Расширения')) = 1 then
  begin
    MM := MainMenu1.Items;

    for I := 0 to 4 do
    begin
      // Добавляем новый пункт меню
      MItem := TMenuItem.Create(MM);
      MItem.Caption := 'lolka';
      MM.MenuIndex := Menu.Items.IndexOf(Menu.Items.Find('Расширения'));
      MM.Insert(I, MItem);
    end;
  end;
end;

Помогите, пожалуйста.

[Аватар]

MenuItem1:=Menu.Items.Find('Расширения');
if MenuItem1<>nil then begin
  MenuItem:=TMenuItem.Create(Self);
  MenuItem.Caption:='ла-ла-ла';
  MenuItem.OnClick:=ItemClick;
  MenuItem1.Add(MenuItem);
end;