delphi 导出Excel

uses ComObj;

procedure TForm1.ToExcel(filename: string);
var
  h,k:integer;
  Excelid: OleVariant;
  s: string;
begin     
  try
    Excelid := CreateOLEObject('Excel.Application');
  except
    Application.MessageBox('Excel没有安装！', '提示信息',
      MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    Exit;
  end;
  try
    k := qry3.RecordCount;
//    Excelid.Visible := True; //显示工作表
    Excelid.Visible := False;
    Excelid.WorkBooks.Add;         
//    Excelid.worksheets[1].range['A1:c1'].Merge(True);
//    Excelid.WorkSheets[1].Cells[1,1].Value :='部门编码表' ;
//    Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
//    Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
    Excelid.WorkSheets[1].Cells[1,1].