diff --git a/docx/border/TSDocxBorder.tsf b/docx/border/TSDocxBorder.tsf
index ff6dc53..85b9bef 100644
--- a/docx/border/TSDocxBorder.tsf
+++ b/docx/border/TSDocxBorder.tsf
@@ -50,9 +50,9 @@ End;
 Function TSDocxBorder.Apply();virtual;
 Begin
 	border_.Update("first");
-End
+End;
 
-// property
+// Properties
 Function TSDocxBorder.WriteArtStyle(value);virtual;
 Begin
 	case value of
@@ -437,6 +437,7 @@ End;
 Function TSDocxBorder.WriteVisible(value);virtual;
 Begin
 	v := value ? "single" : "nil";
+	border_.Val := v;
 End;
 Function TSDocxBorder.ReadVisible();virtual;
 Begin
diff --git a/docx/border/TSDocxBorderTable.tsf b/docx/border/TSDocxBorderTable.tsf
index c303d11..01bbae2 100644
--- a/docx/border/TSDocxBorderTable.tsf
+++ b/docx/border/TSDocxBorderTable.tsf
@@ -38,6 +38,7 @@ Begin
 	table_ := table;
 	border_type_ := borderType;
 	cell_border_ := false;
+	class(TSDocxBorder).Init(nil);
 
 	case border_type_ of
 		TSDocxEnumerations.wdBorderBottom():
diff --git a/docx/border/TSDocxBorders.tsf b/docx/border/TSDocxBorders.tsf
index 296e7d3..264d2fc 100644
--- a/docx/border/TSDocxBorders.tsf
+++ b/docx/border/TSDocxBorders.tsf
@@ -97,4 +97,4 @@ Begin
 	return self[Index];
 End;
 
-// property
+// Properties