怎样通过代码建立菜单项？

[KingI]

如题

[zhaojinghui]

procedure TForm1.Button1Click(Sender: TObject);
var
Mi1,Mi2,Mi3 : TMenuItem;
begin
Mi1 := TMenuItem.Create(Self);
Mi1.Caption := '1';
MainMenu1.Items.Add(mi1);
Mi2 := TMenuItem.Create(Self);
Mi2.Caption := '2';
MainMenu1.Items.Add(mi2);
Mi3 := TMenuItem.Create(Self);
Mi3.Caption := '3';
MainMenu1.Items.Add(mi3);
end;

[zhaojinghui]

//有子菜单
procedure TForm1.Button1Click(Sender: TObject);
var
Mi1,Mi2,Mi3 : TMenuItem;
Sm : TMenuItem;
begin
Mi1 := TMenuItem.Create(Self);
Mi1.Caption := '1';
MainMenu1.Items.Add(mi1);
Mi2 := TMenuItem.Create(Self);
Mi2.Caption := '2';
MainMenu1.Items.Add(mi2);
Mi3 := TMenuItem.Create(Self);
Mi3.Caption := '3';
MainMenu1.Items.Add(mi3);

Sm := TMenuItem.Create(Self);
Sm.Caption := '11';
MainMenu1.Items.Items[0].Add(Sm);
end;

[KingI]

谢谢，那怎样创建子菜单呢？

[KingI]

还有就是如果我想从运行时创建的菜单中执行单击操作，那菜单该如何相应？