| Index | XlBordersIndex |
| xlEdgeBottom |
| xlEdgeLeft |
| xlEdgeRight |
| xlEdgeTop |
| xlAround |
| xlInsideHorizontal |
| xlInsideVertical |
| xlInsideAll |
| xlDiagonalDown |
| xlDiagonalUp |
Workbook.Worksheets[1].Range['A1', 'G1'].Borders.Item[xlEdgeBottom].Color := RGB(255, 0, 0);
Workbook.Worksheets[1].Range['A1', 'G1'].Borders[xlEdgeBottom].Color := RGB(255, 0, 0);
with Workbook.Worksheets[1].Range['A1', 'D4'].Borders[xlAround] do begin ColorIndex:=3; Weight:=xlThick; end;