Создать ярлык на Delphi

Что бы создать  ярлык на делфи достаточно вызвать следующую процедур. procedure CreateLink (const PathObj, PathLink, Desc, Param: string); var IObject: IUnknown; SLink: IShellLink; PFile: IPersistFile; begin IObject := CreateComObject