tmainmenu的问题（60分）

Question

产生一级的已经搞定但二级的怎么办呢？？？procedure TForm1.Button1Click(Sender: TObject);
var
    MyItem: TMenuItem;
var i: integer;
begin
    for i := 0 to 9 do
    begin
        MyItem := TMenuItem.Create(Self);
        MyItem.Caption := 'item' + inttostr(i);
        MyItem.OnClick := MyClick;
        MainMenu1.Items.Add(MyItem);
        MainMenu1.Items[i].Name := 'item' + inttostr(i);
    end;
end;