consumir web service SOAP con TOKEN en delphi

[Muriel]

hola amigos del foro, estoy aquí o través con la misma cantaleta y es por que todavía no logro entender este teme de encasados http
pero tanto buscar encontré este ejemplo en algún foro pero no se si estoy en lo correcto

Código Delphi [-]
const
  IS_TEXT = $0020;

  apikey = class(TSOAPHeader)
  private
    FValue: string;
  published
    property Value: string Index (IS_TEXT) read FValue write FValue;
  end;

esto hice debido a que en SoapUI funciona así como en la imagen que deje adjuntado.
con esto mi código en un botón me que da así

Saludos

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Respuesta: respuestaComunicacion;
   Token: apikey;
begin
     Token:= apikey.Create;
     Token.Value:= 'TokenApi eyJ0eXA.eyJzdWIiOiJDLkkuQy5NLkjoiU0ZFIn0.a7fDfvP2CmB';

     HTTPRIO1.SOAPHeaders.SetOwnsSentHeaders(True);
     HTTPRIO1.SOAPHeaders.Send(Token);
     Try
          Respuesta:=GetServicioFacturacionCodigos(false, '', HTTPRIO1).verificarComunicacion;
          Edit1.Text:= Respuesta.mensajesList[0].descripcion;
     Except
          on E : Exception do
               ShowMessage('Error generado : '+E.Message);
     end;
end;

pero aun así no funciona, o no es así como se hace
por favor quisiera que me ayuden