Workbook.Worksheets[1].Range['A1', 'A1'].Borders.LineStyle := xlDouble;
Workbook.Worksheets[1].Range['A1', 'G1'].Borders[xlEdgeBottom].Color := RGB(255, 0, 0);