Creo que el problema está en cómo asigno el certificado durante el envío.
Asignando el certificado con un simple
anindex := 1, puedo enviar, obtener los mensajes de error, etc.
Pero asignando el certificado tal como lo tenía...
Código:
for I := 0 to ACertificateList.Count - 1 do
begin
if i=strtointdef(comboCertificate.items.SelectedItem.Hint,0) then
begin
AnIndex := I;
Exit;
end;
end;
...es cuando obtengo el dichoso error de text/html.
Ya podría el webservice responder de otra manera.
En fin, que está claro que el problema está en el certificado. Tengo que ver qué ha cambiado, o a qué corresponde ese "anindex" porque está claro que no coincide con el index que yo creía que tenía mi certificado.