delphi 开发安装程序中　的创建程序组　代码如下
　　
begin
if ddeclientconv1.OpenLink then
begin
cg:='[creategroup('+'管理系统'+','+'管理系统 V1.0.1'+')]';
strpcopy(ai,cg);
ddeclientconv1.executemacro(ai,false);
cg:='[additem('+'c:\demo\demo.exe'+''+'管理系统'+')]';
Strpcopy(ai,cg);
Ddeclientconv1.Executemacro(ai,false);
Ddeclientconv1.CloseLink;
end;

end;
／／／／／／即在创建　开始－＞所有程序－＞'管理系统'　单击运行程序
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～

哪为高手帮我看一下　以上代码　哪出了问题，可以运行　但并没有　在开始菜单中创建　启动程序的快捷方式