导出excel 问题

Question

请教 dbgrideh 导出excel 保存类型是空白的，不知哪里错了，uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, DB, ADODB, StdCtrls, Buttons, DBGridEHImpExp,
  ComCtrls;
procedure TForm2.BitBtn9Click(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
  Ext:String;
begin
  SaveDialog1.FileName := ' ';
  if SaveDialog1.Execute then
  begin
  case SaveDialog1.FilterIndex of
  1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls '; end;
  2: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm '; end;
  3: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf '; end;
  4: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt '; end;
  5: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv '; end;
  else  
  ExpClass := nil; Ext := ' ';
  end;
  if ExpClass <> nil then  
  begin
  if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>  
  UpperCase(Ext) then  
  SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
  SaveDBGridEhToExportFile(ExpClass,dbgrideh1,  
  SaveDialog1.FileName,true);  
  end; 
  end;
end;