Author: Lou Adler

I would like to merge one menu into another. Is there an easy way to do this?

Answer:

Something like this. If you don't want to delete the item from PopupMenu2, you'll 
have to create a new item.

1   { ... }
2   var
3     Item: TMenuItem;
4   begin
5     with PopupMenu2.Items do
6       while Count <> 0 do
7       begin
8         Item := Items[0];
9         Delete(0);
10        PopupMenu1.Items.Add(Item);
11      end;