Более быстрый способ добавлять пункты меню

Обычно, когда Вы создаёте меню в приложении, то код выглядит примерно так:

    PopupMenu1 := TPopupMenu.Create(Self);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'First Menu';
    Item.OnClick := MenuItem1Click;
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Second Menu';
    Item.OnClick := MenuItem2Click;
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Third Menu';
    Item.OnClick := MenuItem3Click;
    PopupMenu1.Items.Add(Item);

    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := '-';
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Fourth Menu';
    Item.OnClick := MenuItem4Click;
    PopupMenu1.Items.Add(Item);


Однако есть более быстрый способ! Воспользуйтесь функциями NewItem и NewLine:

    PopupMenu1 := TPopupMenu.Create(Self);
    with PopUpMenu1.Items do
      begin
        Add(NewItem('First Menu',0,False,True,MenuItem1Click,0,'MenuItem1'));
        Add(NewItem('Second Menu',0,False,True,MenuItem2Click,0,'MenuItem2'));
        Add(NewItem('Third Menu',0,False,True,MenuItem3Click,0,'MenuItem3'));
        Add(NewLine);                        // Добавляем разделитель
        Add(NewItem('Fourth Menu',0,False,True,MenuItem4Click,0,'MenuItem4'));

      end;