How To Create Dial-up Desktop Shortcut

I use the following code to create a desktop shortcut to an .exe file.
What changes are required so the code will create a desktop shortcut
to an existing dial-up connection? I'm using Delphi 6.

var
   objShortcut, objShell :variant;
   sName, sPath, strDesk :string;

begin
   sName :='AnyPrgm'; //name of shortcut
   sPath := 'C:\AnyPrgm.exe'; //path info for shorcut
   objShell:= CreateOleObject('Wscript.Shell');
   strDesk:= objShell.SpecialFolders.Item('Desktop');
   objShortcut:= objShell.CreateShortcut(strDesk +'\'+ sName +'.lnk');
   objShortcut.Targetpath:= sPath;
   objShortcut.WorkingDirectory:= 'C:\';
   objShortcut.Save;
   objShell:=UnAssigned;
   objShortcut:=UnAssigned;
end;

Thanks in advance,

PJ