NewItem := TMenuItem.Create(Self); NewItem.Caption := child.Caption; form1.PopupMenu1.Items.Add(NewItem);