[Vich]

//создание
uses ..ShlObj, ComObj, ActiveX, shellapi, ComCtrls..
нужны эти модули, но я не уверен что эт все,поищешь..
procedure SetShortCut(path, cmd, icon, wd, name, arg : String);
var ShellObject:IUnknown;

LinkFile:IPersistFile;
ShellLink:IShellLink;
begin

Try
CoInitialize(nil);
ShellObject:=CreateComObject(CLSID_ShellLink);
LinkFile:=ShellObject as IPersistFile;
ShellLink:=ShellObject as IShellLink;  // RTFM - интерфейсу IShellLink, там всё описано
ShellLink.SetPath(@cmd[1]);
ShellLink.SetWorkingDirectory(@wd[1]);
ShellLink.SetIconLocation(@icon[1],0); // вместо 0 можно указать номер иконки если их там много...
ShellLink.SetDescription(@name[1]);
ShellLink.SetArguments(@arg[1]);
LinkFile.Save(PWChar(WideString(path)),true);
finally
ShellObject:=Unassigned;
CoUninitialize;
end;
end;