procedure TForm1.DataToXLS1AfterRows(Sender: TObject; Range: IXLSRange); begin Range.Borders[xlInsideHorizontal].LineStyle := xlContinuous; end;