如何将数据集保存到Excel中啊？

Question

   filename:=Edit1.text+'.xls';
   try
    ExcelApplication1 := TExcelApplication.Create(Application);
    ExcelWorksheet1 := TExcelWorksheet.Create(Application);
    ExcelWorkbook1 := TExcelWorkbook.Create(Application);
    ExcelApplication1.Connect;
    except
    Application.Messagebox('Excel 没有安装!','请检查', MB_ICONERROR + mb_Ok);
    Abort;
    end;
    try
    ExcelApplication1.Workbooks.Add(EmptyParam, 0);
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet);
    zhsh_Data.toword_Table.First;
    for j := 0 to zhsh_Data.toword_Table.Fields.Count - 1 do
      begin
        ExcelWorksheet1.Cells.item[3, j + 1] := zhsh_Data.toword_Table.Fields[j].DisplayLabel;
        ExcelWorksheet1.Cells.item[3, j + 1].font.size := '10';
      end;
    for i := 4 to zhsh_Data.toword_Table.RecordCount + 3 do
      begin
        for j := 0 to zhsh_Data.toword_Table.Fields.Count - 1 do
          begin
          ExcelWorksheet1.Cells.item[i, j + 1] :=zhsh_Data.toword_Table.Fields[j].Asstring;
          ExcelWorksheet1.Cells.item[i, j + 1].font.size :='10';
          end;
          zhsh_Data.toword_Table.Next;
      end;
    ExcelWorksheet1.Columns.AutoFit;
    ExcelWorksheet1.Cells.item[1, 2] :='Title';//不同
    ExcelWorksheet1.Cells.Item[1, 2].font.size :='14';
    ExcelWorksheet1.SaveAs(edit1.Text+'.xls');
    Application.Messagebox(pchar('数据成功导出' +edit1.text),'Hello',mb_Ok);
  finally
    ExcelApplication1.Disconnect;
    ExcelApplication1.Quit;
    ExcelApplication1.Free;
    ExcelWorksheet1.Free;
    ExcelWorkbook1.Free;
  end;