diff --git a/docx/font/TSDocxFont.tsf b/docx/font/TSDocxFont.tsf
index 8ee0d55..c22fe2c 100644
--- a/docx/font/TSDocxFont.tsf
+++ b/docx/font/TSDocxFont.tsf
@@ -225,9 +225,9 @@ Begin
 End;
 Function TSDocxFont.ReadColor();virtual;
 Begin
-	v := pr.Value("Color");
+	v := pr_.Value("Color");
 	value := color_index_[v];
-	if ifnil(value) then return color_[v];
+	return ifnil(value) ? color_[v] : value;
 End;
 
 Function TSDocxFont.WriteColorIndex(value);virtual;