dbgrideh导出到excel的错误如何解决?

Question

是初学者,不要见笑啊
采用ADO+ADOQUERY+DBGRIDEH导出到EXCEL里   
  代码如下:   
  var   ExpClass:TDBGridEhExportClass;   
          Ext:String;   
  begin   
    SaveDialog1.FileName   :=   'file1.xls';   
      if   (ActiveControl   is   TDBGridEh)   then   
          if   SaveDialog1.Execute   then   
          begin   
              case   SaveDialog1.FilterIndex   of   
                  1:   begin   ExpClass   :=   TDBGridEhExportAsText;   Ext   :=   'txt';   end;   
                  2:   begin   ExpClass   :=   TDBGridEhExportAsCSV;   Ext   :=   'csv';   end;   
                  3:   begin   ExpClass   :=   TDBGridEhExportAsHTML;   Ext   :=   'htm';   end;   
                  4:   begin   ExpClass   :=   TDBGridEhExportAsRTF;   Ext   :=   'rtf';   end;   
                  5:   begin   ExpClass   :=   TDBGridEhExportAsXLS;   Ext   :=   'xls';   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,TDBGridEh(ActiveControl),   
                            SaveDialog1.FileName,False);   
              end;   
          end;   
    end;   
出现以下提示,不知道是什么大原因,因为我是初学者,所以不要见笑啊
[Error] Unit4.pas(377): Undeclared identifier: 'TDBGridEhExportClass'
[Error] Unit4.pas(385): Undeclared identifier: 'TDBGridEhExportAsText'
[Error] Unit4.pas(386): Undeclared identifier: 'TDBGridEhExportAsCSV'
[Error] Unit4.pas(387): Undeclared identifier: 'TDBGridEhExportAsHTML'
[Error] Unit4.pas(388): Undeclared identifier: 'TDBGridEhExportAsRTF'
[Error] Unit4.pas(389): Undeclared identifier: 'TDBGridEhExportAsXLS'
[Error] Unit4.pas(393): Operator not applicable to this operand type
[Error] Unit4.pas(398): Undeclared identifier: 'SaveDBGridEhToExportFile'
[Fatal Error] Project1.dpr(15): Could not compile used unit 'Unit4.pas'