procedure TZtxExcelExporter.DumpDataSet;
var
  i,j : integer;
  arr : Variant;
  rcnt,ccnt : integer;
  bm : Pointer;
begin
  if FCol <> 1 then
    WriteLineFmt('',[]);
  For i := 0 to ExportFields.Count - 1 do begin
    FExcelWorkSheet.Columns[FCol].ColumnWidth := ExportFields[i].DisplayWidth;
    WriteFmt('''%s',[ReplaceChar(ExportFields[i].DisplayLabel,'|',',')]);
  end;
  WriteLineFmt('',[]);
  j := 1;
  DataSet.DisableControls;
  try
    bm := DataSet.GetBookmark;
    DataSet.Last;
    DataSet.First;
    rcnt := FDataSet.RecordCount;
    ccnt := ExportFields.Count;
    arr := VarArrayCreate([1,rcnt,1,ccnt],varVariant);

    While not DataSet.Eof do begin
      for i := 0 to ExportFields.Count - 1 do
        arr[j,i+1] := ExportFields[i].Value;
      DataSet.Next; inc(j);
    end;
    DataSet.GotoBookmark(bm);
  finally
    DataSet.EnableControls;
  end;
  FExcelWorkSheet.Range[FWS.Cells[FRow,FCol],FWS.Cells[FRow+rcnt-1,FCol+ccnt-1]].value := arr;
end;
procedure TZtxExcelExporter.WriteFmt(const Fmt: String;
  const Args: array of const);
var str : String;
begin
  FmtStr(Str, Fmt, Args);
  FWS.Cells[FRow,FCol].Value := Str;
  inc(FCol);
end;

procedure TZtxExcelExporter.WriteLineFmt(const Fmt: String;
  const Args: array of const);
var str : String;
begin
  FmtStr(Str, Fmt, Args);
  if Str <> '' then
    FWS.Cells[FRow,FCol].Value := Str;
  inc(FRow);
  FCol := 1;
end;