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

Code:

   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;