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