Использовать TQRCommaSeparatedFilter для сохранения в CSV, который открывает Excel

Обязательно нужно указать разделитель ";" и подключить модуль QRExport.
Пример:

.....
uses
 ----
QRExport;


procedure TForm1_Export(
  Sender: TObject);
  var isall:string;
   CsvFilter : TQRCSVFilter;
 CsvExportFilter : TQRCommaSeparatedFilter;
begin
with SaveDialog1 do
begin
Filter:='CSV (*.csv) |*.csv';
if Execute then
Try

  FReport1:=TFReport1.create(self);


  CsvFilter:=TQRCSVFilter.Create(nil);
               CsvFilter.Separator:=';';
               CsvExportFilter :=
TQRCommaSeparatedFilter.Create(SaveDialog1.FileName+'.Csv');
               TFReport1.QR.ExportToFilter(CsvExportFilter);
               CsvExportFilter.Free;
               CsvFilter.Free;
except
ShowMessage('Error');
end;
end;

end;