[v1s2222]

Код:

var
  MI, N:TMenuItem;
begin
  MI:=TMenuItem.Create(PopupMenu1);
  N:=TMenuItem.Create(nil);
  Mi.Caption:='Меню';
  N.Caption:='Подменю';
  MI.Add(N); // -> добавляю подменю
  MI.ImageIndex:=0;
  PopupMenu1.Items.Add(MI);