Delphi: Criando um atalho na area de trabalho

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, 
Controls, Forms, Dialogs, ActiveX, ComObj, ShlObj, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
DirDesktop: String;

implementation

procedure TFMain.FormCreate(Sender: TObject);
var ItemIDList :  PItemIDList;
begin
        SetLength(DirDesktop,MAX_PATH);
        SHGetSpecialFolderLocation(Application.Handle, 
                                   CSIDL_DESKTOPDIRECTORY,ItemIDList);
        SHGetPathFromIDList(ItemIdList,PChar(DirDesktop));
        SetLength(DirDesktop,StrLen(PChar(DirDesktop)));
end;

procedure TFMain.BitBtn1Click(Sender: TObject);
var ShellLink : IShellLink;
PersistFile : IPersistFile;
NomeLnk : WideString;
begin
        ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
        PersistFile := ShellLink as IPersistFile;
        with ShellLink do begin
                // Informe o Título do ícone
                SetDescription(PChar('DESCRIÇÃO DO ATALHO'));

                // Informe o Caminho e o Arquivo
                SetPath(PChar('C:PASTAARQUIVO.EXE'));

                // Argumentos para linha de comando, caso existam
                SetArguments(PChar(''));
                
                // Informe o Caminho e o Arquivo
                SetWorkingDirectory(
                    PChar(ExtractFilePath('C:PASTAARQUIVO.EXE')));
        end;

        // Informe o nome do Atalho
        NomeLnk := DirDesktop + ' ' + 
                   ChangeFileExt('DESCRIÇÃO DO ATALHO','.lnk');
        PersistFile.Save(PWideChar(NomeLnk),False);
end;

IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))); 
//Pega a pasta do exe 
IncludeTrailingPathDelimiter(GetCurrentDir); 
//Pega a pasta do ícone ('Iniciar em')