HTTPRIO Basic Authorization

[CumaParlak]

Merhaba arkadaşlar,
HTTPRIO ile Basic Authorization gerçekleştiremiyorum.

bazı yerlerde aşağıdaki olay altına  yazığımızda gerçekleştiğini yazıyor. Fakat çalıştıramadım
tecrübeli arkadaşlar mantık olarak yardımcı olabilirlerse sevinirim.

procedure TForm1.HTTPRIO1HTTPWebNode1BeforePost(
  const HTTPReqResp: THTTPReqResp; Data: Pointer);

HTTPWebNode.UserName:='sifre';
HTTPWebNode.Password:='parola';

[Emrah Karagöz]

e-Fatura Sisteminde Bu Şekilde Request Header' a eklemiştik

 str1 := TicariParameFatura(4) +':'+TicariParameFatura(5) ;//kullanıcı:Sifre

 Base64Org.Base64Encode(str1,str1);
 str1 := 'Authorization: Basic ' + str1;
 str2 := str1;
 if not HttpAddRequestHeaders(Data, PChar(str2), Length(str2), HTTP_ADDREQ_FLAG_ADD) then
 raise Exception.Create(SysErrorMessage(GetLastError));