Создание ярлыка с параметрами быстрого запуска сочетанем клавиш

[Night_Devil]

Доброй ночи! Подскажите, как я могу создать средствами Delphi ярлык, с параметрами быстрого запуска сочетанием клавиш? Создать ПРОСТО ЯРЛЫК, я могу. А вот как задать ему параметры? Ниже приведён код, с помощью которого я создаю ярлык.
Заранее спасибо!

procedure CreateShotCut(SourceFile, ShortCutName, SourceParams: String);
var
  IUnk: IUnknown;
  ShellLink: IShellLink;
  ShellFile: IPersistFile;
  tmpShortCutName: string;
  WideStr: WideString;
  i: integer;
begin
  IUnk := CreateComObject(CLSID_ShellLink);
  ShellLink := IUnk as IShellLink;
  ShellFile := IUnk as IPersistFile;

  ShellLink.SetPath(PChar(SourceFile));
  ShellLink.SetArguments(PChar(SourceParams));
  ShellLink.SetWorkingDirectory(PChar(ExtractFilePath(SourceFile)));

  ShortCutName := ChangeFileExt(ShortCutName, '.lnk');
  if fileexists(ShortCutName) then
  begin
    ShortCutName := copy(ShortCutName, 1, length(ShortCutName) - 4);
    i := 1;
    repeat
      tmpShortCutName := ShortCutName + '(' + inttostr(i) + ').lnk';
      inc(i);
    until not fileexists(tmpShortCutName);
    WideStr := tmpShortCutName;
  end
  else
    WideStr := ShortCutName;
  ShellFile.Save(PWChar(WideStr), False);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
CreateShotCut(application.ExeName,
        'C:\Ярлык.lnk', '');
end;