Доброе время суток.
Есть такой код Но он не дает никаких результатов, почему ?

Function CreateLink(const PathObj, PathLink, Desc, Param: string): Boolean;
var IObject: IUnknown;
Begin
IObject := CreateComObject(CLSID_ShellLink);
(IObject as IShellLink).SetArguments(PChar(Param));
(IObject as IShellLink).SetDescription(PChar(Desc));
(IObject as IShellLink).SetPath(PChar(PathObj));
Result:=(IObject as IPersistFile).Save(PWChar(WideString(PathLink)), False)=S_OK;
end;

Заранее благодарен.