delphi 实现sql中数据存入excel中

procedure TFORMITMI.Button1Click(Sender: TObject);
 var
  i, row, column: integer;
   ExcelApplication1: TExcelApplication;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;

begin
Try
    ExcelApplication1 := TExcelApplication.Create(Application);
    ExcelWorksheet1 := TExcelWorksheet.Create(Application);
    ExcelWorkbook1 := TExcelWorkbook.Create(Application);

    ExcelApplication1.Connect;
  Except
    MessageDlg('Excel may not be installed',
      mtError, [mbOk], 0);
    Abort;
  End;
  ExcelApplication1.Visible[0] := True;
  ExcelApplication1.Caption := 'Excel Application';
  ExcelApplication1.Workbooks.Add(Null, 0);
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
  DBGrid1.DataSource.DataSet.Open;
  row := 2;
  ExcelWorksheet1.Cells.Item[1, 1] :='物料编码';
  ExcelWorksheet1.Cells.Item[1, 2] :='物料描述';
  ExcelWorksheet1.Cells.Item[1, 3] :='单位';
  ExcelWorksheet1.Cells.Item[1, 4] :='制构码';