Jeg skal ændre target i shortcut vha CreateOleObject

procedure CreateShortcut;
var
  objShortcut, objShell :variant;
  strDesk,Sname,sPath:string;
begin
      objShell:= CreateOleObject('Wscript.Shell');
  strDesk:= objShell.SpecialFolders.Item('{userdesktop}\{cm:MyAppName}');
  objShortcut:= objShell.CreateShortcut(strDesk +''+ sName +'.lnk');
  objShortcut.Targetpath:= sPath;
  objShortcut.Save;
  objShell:=UnAssigned;
  objShortcut:=UnAssigned;
end;

Jeg skal ændre en target i shorcut vha CreateOleObject ?