форматирование экспорте в Эксель

[Kirvisniemi]

XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeRight).LineStyle := xlContinuous;
XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeRight).Weight := xlMedium;
XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeLeft).LineStyle := xlContinuous;
XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeLeft).Weight := xlMedium;
... и .т.п.

xlEdgeBottom  = 9 
xlEdgeLeft	   = 7 
xlEdgeRight	 = 10 
xlEdgeTop	   = 8 
xlContinuous   = 1
xlMedium		= -4138