如何为克隆生成的TMenuItem正确指定Owner？

常规代码创建TMenuItem时，可以通过构造函数参数直接指定Owner：

var NewMenuItem := TMenuItem.Create(MainMen1);

但使用Vcl.Menus.NewItem克隆创建菜单项时，直接给Owner属性赋值会触发错误，错误写法示例：

function CloneMenuItem(SourceItem: TMenuItem): TMenuItem;
begin
  with SourceItem do  
    Result := Vcl.Menus.NewItem(Caption, Shortcut, Checked, Enabled, OnClick, HelpContext, Name + 'Cloned'); 
  //Result.Owner := pmMyPopupMenu; // 此处报错，Owner是只读属性无法直接赋值
end;

首先明确核心原因：VCL中所有继承自TComponent的类，Owner属性是只读的，不支持直接赋值修改，必须通过VCL内置的所有权机制指定。
有两种可落地的实现方案：

方案1：手动创建菜单项，构造时直接指定Owner #

放弃使用NewItem函数，手动调用TMenuItem构造函数，传入目标Owner，再逐属性复制源菜单项的配置，从根源避免后续修改Owner的问题：

function CloneMenuItem(SourceItem: TMenuItem; TargetOwner: TComponent): TMenuItem;
begin
  // 构造时直接传入目标Owner，比如pmMyPopupMenu
  Result := TMenuItem.Create(TargetOwner);
  // 逐个复制源项属性
  Result.Caption := SourceItem.Caption;
  Result.Shortcut := SourceItem.Shortcut;
  Result.Checked := SourceItem.Checked;
  Result.Enabled := SourceItem.Enabled;
  Result.OnClick := SourceItem.OnClick;
  Result.HelpContext := SourceItem.HelpContext;
  Result.Name := SourceItem.Name + 'Cloned';
end;

// 调用示例
var
  ClonedItem: TMenuItem;
begin
  ClonedItem := CloneMenuItem(SourceMenuItem, pmMyPopupMenu);
  pmMyPopupMenu.Items.Add(ClonedItem);
end;

方案2：对已创建的菜单项，通过InsertComponent转移所有权 #

如果已经通过NewItem创建完菜单项，可以调用目标Owner组件的InsertComponent方法转移所有权，该方法是VCL官方提供的修改组件Owner的合法途径：

function CloneMenuItem(SourceItem: TMenuItem; TargetOwner: TComponent): TMenuItem;
begin
  with SourceItem do  
    Result := Vcl.Menus.NewItem(Caption, Shortcut, Checked, Enabled, OnClick, HelpContext, Name + 'Cloned'); 
  // 合法转移所有权，自动设置Result的Owner为TargetOwner
  TargetOwner.InsertComponent(Result);
end;

• 不要混淆Owner和Parent（菜单项场景下即菜单项所属的菜单/父菜单项）：Owner负责组件的内存释放，Parent负责菜单项的显示层级，将菜单项Add到菜单的Items集合只会修改Parent，不会自动修改Owner。
• 如果使用方案2，要确保调用InsertComponent之前，菜单项没有被其他组件持有Owner，否则需要先调用原Owner的RemoveComponent方法移除原有所有权，再插入到新Owner下。

内容的提问来源于stack exchange，提问作者user1580348