修复border一些问题

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

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():

docx/border/TSDocxBorders.tsf

@@ -97,4 +97,4 @@ Begin
 	return self[Index];
 End;
 
-// property
+// Properties