imageindex1:=-1;//没有载入图标
//下面的代码使用for和case来添加两个菜单项有点小题大作，但
//我们展示了一种更通用的方法使你能够添加更多的菜单项，而不必简单的复制代码。
for i:=0 to 2 do
begin
menuitem[i]:=tmenuitem.create(newmenu);//创建子菜单项
case i of
0:
begin
menuitem[i].caption:='inserttext';
icon1:=ticon.create;
