[Человек_Борща]

а если подменю уже сущесвует?(Создано в disign-time). Програмно требудется туда впихивать пункты меню.

хм присвоил пункту меню tag:=5 и сделал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  MI:TMenuItem;
  i:Integer;
begin
  MI:=TMenuItem.Create(PopupMenu1);
  Mi.Caption:=Edit1.Text;
  MI.ImageIndex:=0;

  for i:=0 to PopupMenu1.Items.Count -1 do
  begin
    if (PopupMenu1.Items[i].Tag = 5) then
    begin
    PopupMenu1.Items[i].Add(MI);
    end;
  end;
end;