[jhonny]

Me he permitido sugerir esta manera, aplicada a lo que estás haciendo, lo cual sería solamente agregar EncdDecd al uses y cambiar el procedimiento llamado ConverZipFile un poco, así:

Código Delphi [-]
uses Soap.EncdDecd;

procedure ConverZipFile(XML: String);
    var
  Doc     : IXMLDocument;
  Elemento: IXMLNode;
  ByteB   : TByteDynArray;
begin
  Doc := LoadXMLData(XML);
  Elemento := Doc.DocumentElement.ChildNodes.FindNode('S:Body');
  Elemento := Elemento.ChildNodes.Get(0);
  Elemento := Elemento.ChildNodes.Get(0);
  ByteB:=TByteDynArray(EncdDecd.DecodeBase64(XML));
  ByteArrayToFIle(ByteB,'D:\E-Billing\demo.ZIP');
end;

Espero te sirva.