Необходимо вытащить большой объем данных из MySQL в Excel

XL.ActiveWorkbook.ActiveSheet.cells[1, 1].CopyFromRecordset(ADOQuery1.Recordset);

var f: tstringlist;
......
f.text = ADOQuery1.Recordset.GetString(2, -1, ' , ', char(13) + char(10), 'null');
f.SaveToFile('test.csv');

XL.ActiveWorkbook.ActiveSheet.range[XL.cells[1, 1],
    XL.cells[ADOQuery1.FieldCount +1, ADOQuery1.RecordCount + 1]]:= ADOQuery1.Recordset;

  for x := 0 to ZReadOnlyQuery1.RecordCount - 1  do
    for y := 0 to ZReadOnlyQuery1.FieldCount - 1  do
    begin
      TZEXMLSS.Sheets[0].Cell[x, y].Data:= ZReadOnlyQuery1.Fields[y].Value;
      ZReadOnlyQuery1.Next;
    end;

  ZReadOnlyQuery1.Open;
  varr:= VarArrayCreate([0, ZReadOnlyQuery1.RecordCount, 0, ZReadOnlyQuery1.FieldCount], varOleStr);
  for x := 0 to ZReadOnlyQuery1.RecordCount - 1  do
    for y := 0 to ZReadOnlyQuery1.FieldCount - 1  do
    begin
      varr[x, y]:= ZReadOnlyQuery1.Fields[y].Value;
      ZReadOnlyQuery1.Next;
    end;
  XL := CreateOleObject('Excel.Application');
  XL.Visible := True;
  XL.Workbooks.add;
  XL.ActiveWorkbook.ActiveSheet.range[XL.cells[1, 1],
    XL.cells[ZReadOnlyQuery1.RecordCount, ZReadOnlyQuery1.FieldCount]]:= varr;

  ZReadOnlyQuery1.Open;
  varr:= VarArrayCreate([0, ZReadOnlyQuery1.RecordCount, 0, ZReadOnlyQuery1.FieldCount], varOleStr);  //Создаем массив
  for x := 0 to ZReadOnlyQuery1.RecordCount - 1  do // Заполняем массив
    for y := 0 to ZReadOnlyQuery1.FieldCount - 1  do
    begin
      varr[x, y]:= ZReadOnlyQuery1.Fields[y].Value;
      ZReadOnlyQuery1.Next;
    end;
  XL := CreateOleObject('Excel.Application');
  XL.Visible := True;
  XL.Workbooks.add;
  XL.ActiveWorkbook.ActiveSheet.range[XL.cells[1, 1],       
    XL.cells[ZReadOnlyQuery1.RecordCount, ZReadOnlyQuery1.FieldCount]]:= varr;   //Передаем массив в эксель