visualizzaErogatoPT = interface(IInvokable)
  ['{AD9DB9DE-E3E4-1FD0-171D-FD78913E0E54}']
    function  visualizzaErogato(const VisualizzaErogatoRichiesta: VisualizzaErogatoRichiesta): VisualizzaErogatoRicevuta; stdcall;
  end;

function GetvisualizzaErogatoPT(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): visualizzaErogatoPT;

procedure TMainF.Button2Click(Sender: TObject);
var
     richiesta: VisualizzaErogatoRichiesta;
     ricevuta: VisualizzaErogatoRicevuta;
begin
   richiesta.codiceRegioneErogatore := '190';
   richiesta.codiceAslErogatore := '201';
   richiesta.codiceSsaErogatore := '888888';
   richiesta.pwd := '';
   richiesta.nre := '1900A4005026299';
   richiesta.tipoOperazione := '1';
try
   ricevuta :=  (HTTPRIO1 as visualizzaErogatoPT).visualizzaErogato(richiesta);
   label1.Caption := ricevuta.nre;
except
  on E: Exception do
   showmessage(E.Message);
end;

procedure TMainF.HTTPReqResp1BeforePost(const HTTPReqResp: THTTPReqResp;
  Data: Pointer);
var
  auth: String;
  FUserName, FPassword : string;
begin
  FUserName:='XXXXXXXX';
  FPassword:='XXXXXXXX';
  auth := 'Authorization: Basic ' + TNetEncoding.Base64.Encode(FUserName + ':' + FPassword);
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);
end;