//    <obterClientePorNIF_BI_Codigo>
//  <OutgoingHeaders attr0="MsgHeaderArray" isNull="false">
//    <MsgHeaderArray0>
//      <Name>SecurityToken</Name>
//      <Namespace>ns</Namespace>
//      <ItemType>SecurityToken</ItemType>
//      <Value>L9+zby7w1V5OZTVGUPLZ1>L9+zby7w1V5OZTVGUPLZ1x8rJYzCEHAnxovPx8rJYzCEHAnxovPUuyadZFdbv21elZ1qsvyp3kzbVR2s155E/Fea+8tXySxU7XfCMlut2mQ/YxvqzeQN>L9+zby7w1V5OZTVGUPLZ1x8rJYzCEHAnxovPIAc5JF99688MPfwqtehTpkDFKUhKIkShjIH9Zcv0xAHRoZ4sfc7HX</Value>
//      <Direction>Outgoing</Direction>
//    </MsgHeaderArray0>
//  </OutgoingHeaders>
//  <MethodParameters>
//    <TemMais100Registos>False</TemMais100Registos>
//    <MensagemErro isNull="false" />
//    <TemErro>False</TemErro>
//    <CompanhiaConexao>1235</CompanhiaConexao>
//    <NIF>2534525</NIF>
//    <BI isNull="false" />
//    <NomeCliente isNull="false" />
//    <Cliente isNull="false" />
//  </MethodParameters>
//</obterClientePorNIF_BI_Codigo>



   function TSOAPCredentials.ObjectToSOAP(RootNode, ParentNode: IXMLNode; const ObjConverter: IObjConverter; const NodeName,
  NodeNamespace, ChildNamespace: InvString; ObjConvOpts: TObjectConvertOptions; out RefID: InvString): IXMLNode;
begin

 Result := ParentNode.AddChild('Name');
 Result.Text:= Name;
 Result := ParentNode.AddChild('Namespace');
 Result.Text:= Namespace;
 Result := ParentNode.AddChild('ItemType');
 Result.Text := ItemType;
   Result := ParentNode.AddChild('value');
 Result.Text := value;
    Result := ParentNode.AddChild('Direction');
 Result.Text := Direction;


end;


procedure TForm3.Button3Click(Sender: TObject);

var
ws: IWSClientes;
   req: obterClientePorNIF_BI_Codigo;

  autent: TSOAPCredentials;
 reultado: TStringList;
begin
req:= obterClientePorNIF_BI_Codigo.Create;
//resp:= obterClientePorNIF_BI_CodigoResponse.Create;
reultado :=TStringList.Create;
 HTTPRIO1.Create(nil);
 HTTPRIO1.HTTPWebNode.Username:='user';
 HTTPRIO1.HTTPWebNode.Password:='pass';
WS := GetIWSClientes(false, '', HTTPRIO1);
 autent := TSOAPCredentials.Create;
   autent.Name := 'SecurityToken';
   autent.Namespace := 'ns';
   autent.ItemType:='System.String';
      autent.value:= token.Text;
   autent.Direction:='Outgoing';
HTTPRIO1.SOAPHeaders.Send(autent);
   req.CompanhiaConexao:=;
   req.NIF:='';
   req.BI:='';
   req.NomeCliente:='';
   req.Cliente:='';

  req :=  ws.obterClientePorNIF_BI_Codigo(req);

//ultado :=(resp);
 // Showmessage('Numero');
//Application.MessageBox('Operação Realizada com Sucesso!','Aviso',mb_Ok+mb_IconExclamation);
 end;`