diff --git a/docx/font/TSDocxFont.tsf b/docx/font/TSDocxFont.tsf
index c22fe2c..c4987bb 100644
--- a/docx/font/TSDocxFont.tsf
+++ b/docx/font/TSDocxFont.tsf
@@ -308,7 +308,7 @@ Begin
 End;
 Function TSDocxFont.ReadEmphasisMark();virtual;
 Begin
-	case pr_.Value("first") of
+	case pr_.Value("Em") of
 		"none", nil:
 			return TSDocxEnumerations.wdEmphasisMarkNone;
 		"comma":
diff --git a/docx/font/TSDocxFontRange.tsf b/docx/font/TSDocxFontRange.tsf
index 2ba4a56..31ca905 100644
--- a/docx/font/TSDocxFontRange.tsf
+++ b/docx/font/TSDocxFontRange.tsf
@@ -467,6 +467,11 @@ Begin
 	return CallFunction(ThisFunction(class(TSDocxFont).ReadDuplicate));
 End;
 
+Function TSDocxFontRange.WriteDoubleStrikeThrough(value);override;
+Begin
+	CallFunction(ThisFunction(class(TSDocxFont).WriteDoubleStrikeThrough), value);
+End;
+
 Function TSDocxFontRange.ReadDoubleStrikeThrough();override;
 Begin
 	return CallFunction(ThisFunction(class(TSDocxFont).ReadDoubleStrikeThrough));