Error when using the IBackgroundCopyJob 2.SetCredentials method in Delphi (RAD Studio 10.3.3)

procedure TForm1.Button19Click(Sender: TObject);
const
  RPC_C_AUTHN_LEVEL_DEFAULT = 0;
  RPC_C_AUTHN_LEVEL_NONE = 1;
  RPC_C_AUTHN_LEVEL_CONNECT = 2;
  RPC_C_IMP_LEVEL_IMPERSONATE = 3;
  RPC_C_AUTHN_WINNT = 10;
  RPC_C_AUTHZ_NONE = 0;
  RPC_C_AUTHN_LEVEL_CALL = 3;
  EOAC_NONE = 0;
  EOAC_DYNAMIC_CLOAKING = 40;
 
var
  pQueueMgr: IBackgroundCopyManager;
  pJob: IBackgroundCopyJob;
  pJob2: IBackgroundCopyJob2;
  pJobID: TGUID;
 
  szUserName, szPassword: PChar;
  cred: BG_AUTH_CREDENTIALS;
 
  hr: HRESULT;
begin
  CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
 
  szUserName := PWideChar('jakonda\jakonda');
  szPassword := PWideChar('Aa1234567');
 
  ZeroMemory(@cred, SizeOf(cred));
 
  cred.Scheme := BG_AUTH_SCHEME_NEGOTIATE;
  cred.Target := BG_AUTH_TARGET_SERVER;
  cred.Credentials.Basic.UserName := szUserName;
  cred.Credentials.Basic.Password := szPassword;
 
  CoInitializeSecurity(nil, -1, nil, nil, RPC_C_AUTHN_LEVEL_CONNECT, RPC_C_IMP_LEVEL_IMPERSONATE, nil, EOAC_DYNAMIC_CLOAKING, nil);
 
  hr := CoCreateInstance(CLSID_BackgroundCopyManager, nil, CLSCTX_LOCAL_SERVER, IID_IBackgroundCopyManager, pQueueMgr);
  if Failed(hr) then
    raise Exception.Create('pQueueMgr Error');
 
  hr := pQueueMgr.CreateJob('test', BG_JOB_TYPE_UPLOAD, pJobID, pJob);
  if Failed(hr) then
    raise Exception.Create('CreateJob Error');
 
  hr := pJob.SetNotifyInterface(Self);
  if Failed(hr) then
    raise Exception.Create('SetNotifyInterface Error');
 
  hr := pJob.QueryInterface(IID_IBackgroundCopyJob2, pJob2);
  if Failed(hr) then
    raise Exception.Create('QueryInterface IID_IBackgroundCopyJob2 Error');
 
  hr := pJob2.SetCredentials(cred);
  if Failed(hr) then
    RaiseLastOSError;
 
  hr := pJob.Resume;
  if Failed(hr) then
    raise Exception.Create('Resume Error');
 
  FreeMem(szUserName);
  FreeMem(szPassword);
 
  pQueueMgr := nil;
  CoUninitialize;
end;