A:
canvas.font.style := [fsUnderline]; {set} canvas.font.style := []; {reset}
Because the property uses a list, sending an empty list clears it out.