//引用单元加上 shellapi
uses shellapi;

//实现部分加如下代码
shellexecute(handle,'open',pchar('calc.exe'),nil,nil,sw_shownormal); //菜单点击事件加上这行就OK了