#pasprocedure CreateLink(const Name, LinkName,wd,d,Param: string,icon: pchar);
#pasprocedure CreateLink(const Name, LinkName,wd,d,Param,icon: pchar);