let TTextWriter.AddHtmlEscape() encode ' as &apos;
as expected within XML attributes