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