IPersistFile.Save неправильно сохраняет

function CreateLinkW(FileName,DestDirectory:WideString; OverwriteExisting,AddNumberIfExists:Boolean):WideString;
var MyObject:IUnknown; MySLink:IShellLinkW; MyPFile:IPersistFile;
    WFileName:WideString; X:INTEGER; BufName:WideString;
begin
Result:=''; X:=0;
if not (FileExistsW(FileName) or DirectoryExistsW95(DestDirectory)) then Exit;
MyObject:=CreateComObject(CLSID_SHELLLINK);
 
MyPFile:=MyObject as IPersistFile;
MySLink:=MyObject as IShellLinkW;
BufName:=ExtractFileNameWithoutExtW(FileName);
 
with MySLink do begin
SetArguments('');
SetPath(PWideChar(FileName));
SetWorkingDirectory(PWideChar(ExtractFilePathW(FileName)));
end;
 
if DestDirectory[Length(DestDirectory)]<>'\' then DestDirectory:=DestDirectory+'\';
WFileName:=DestDirectory+BufName+'.lnk';
 
if not OverwriteExisting then
if FileExistsW(WFileName) then
if not AddNumberIfExists then Exit else repeat
X:=X+1;
WFileName:=DestDirectory+Bufname+IntToStr(X)+'.lnk';
until not FileExistsW(WFileName);
        
MyPFile.Save(PWideChar(WFileName),False);
Result:=WFileName;
end;
 
procedure PutLinkOnDesktop(fPath:WideString);
var DPath:array[0..MAX_PATH] of WideChar; wpath:WideString;
begin
if not ShGetSpecialFolderPathW(GetDesktopWindow,DPath,CSIDL_DESKTOPDIRECTORY,False) then Exit;
wPath:=DPath;
CreateLinkW(fPath,wPath,False,True);
end;

procedure CreateLink(Directory,linkName: string);
var
  IObject: IUnknown;
  SLink: IShellLink;
  PFile: IPersistFile;
  PathLink: string;
begin
  ForceDirectories(Directory);
  PathLink:= Format('%s%s.lnk',[IncludeTrailingPathDelimiter(Directory),linkName]);
  IObject := CreateComObject(CLSID_ShellLink);
  SLink := IObject as IShellLink;
  PFile := IObject as IPersistFile;
  with SLink do
  begin
    SetPath(PChar(ParamStr(0)));  // ярлык для этого ехе-файла (пример)
    SetArguments(' /arguments');
    SetDescription('Это описание ярлыка');
  end;
  if PFile.Save(PChar(PathLink),false) = 0
    then MessageDlg('Ярлык создан успешно!',mtInformation,[mbOk],0)
    else raise Exception.Create(SysErrorMessage(GetLastError));
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  CreateLink(Edit1.Text,Edit2.Text);
end;

uses
  ShellApi, ComObj, ShlObj, ActiveX;

procedure CreateLinkW2(FilePath,DestDirectory:WideString);
var
  IObject: IUnknown;
  SLink: IShellLinkW;
  PFile: IPersistFile;
  PathLink: WideChar;
begin
  IObject:=CreateComObject(CLSID_ShellLink);
  SLink:=IObject as IShellLinkW;
  PFile:=IObject as IPersistFile;
  with SLink do
  begin
    SetPath(PWideChar(FilePath));
    SetWorkingDirectory(PWideChar(ExtractFilePathW(FilePath)));
    SetArguments('');
    SetDescription('');
  end;
PFile.Save(PWideChar(DestDirectory+'\'+ExtractFileNameWithoutExtW(FilePath)+'.lnk'),false);
end;