怎么调用MicrDataReceived函数？

Question

怎么调用
  __MicrImage = dispinterface
    ['{991313A3-D27E-45A1-97F2-3420D1528330}']
    procedure MicrDataReceived; dispid 1;
  end;里的MicrDataReceived函数？我试过CreateComObject(‘MTMicrImage.MicrImage’) as __MicrImage不行，有人能给点建议的吗？谢谢unit MTMicrImage_TLB;// ************************************************************************  //
// Type Lib: C:\Program Files\MicrImage\MTMicrImage.ocx (1)
// LIBID: {9B698AE6-8CE3-4E8E-A0D9-717CF3CF06DA}
// LCID: 0
// Helpfile: 
// HelpString: MagTek ActiveX Comp For Micr Image Device
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)                                                         
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interfaceuses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
const
  // TypeLibrary Major and minor versions
  MTMicrImageMajorVersion = 1;
  MTMicrImageMinorVersion = 0;  LIBID_MTMicrImage: TGUID = '{9B698AE6-8CE3-4E8E-A0D9-717CF3CF06DA}';  IID__MicrImage: TGUID = '{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}';
  DIID___MicrImage: TGUID = '{991313A3-D27E-45A1-97F2-3420D1528330}';
  CLASS_MicrImage: TGUID = '{9E8EBAA8-573C-45D2-A64C-DD93489744DE}';
type// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _MicrImage = interface;
  _MicrImageDisp = dispinterface;
  __MicrImage = dispinterface;// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  MicrImage = _MicrImage;
// *********************************************************************//
// Interface: _MicrImage
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}
// *********************************************************************//
  _MicrImage = interface(IDispatch)
    ['{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}']    function Get_CommPort: Smallint; safecall;
    procedure Set_CommPort(Param1: Smallint); safecall;
    function Get_Settings: WideString; safecall;
    procedure Set_Settings(const Param1: WideString); safecall;
    function GetTrack(var TrackNum: Smallint): WideString; safecall;
    function GetFName: WideString; safecall;
    function GetLName: WideString; safecall;
    function FindElement(TrackNum: Smallint; const RefChar: WideString; Displacement: Smallint; 
                         const NumDigits: WideString; var DirectionBack: OleVariant): WideString; safecall;
    function GetDefSetting(const Key: WideString; var Default: OleVariant): WideString; safecall;
    procedure SaveDefSetting(const Key: WideString; const Setting: WideString); safecall;
    function Get_PortOpen: WordBool; safecall;
    procedure Set_PortOpen(Param1: WordBool); safecall;
    function Get_MicrData: WideString; safecall;
    procedure Set_MicrData(const Param1: WideString); safecall;
    function ClearBuffer: Smallint; safecall;
    procedure About; safecall;
    function MicrCommand(const strCommand: WideString; var BReturnData: OleVariant): WideString; safecall;
    function StoreImage(var strTag: OleVariant): WideString; safecall;
    function FileMemoryStatus: WideString; safecall;
    function FileMemoryErase: WideString; safecall;
    function FileMemoryResetPointer: WideString; safecall;
    function AddTag(const strTag: WideString): WideString; safecall;
    function Version: WideString; safecall;
    function Reset: WideString; safecall;
    function FormatShow: WideString; safecall;
    function FormatChange(const strFormat: WideString): WideString; safecall;
    function Save: WideString; safecall;
    function Get_MicrTimeOut: Single; safecall;
    procedure Set_MicrTimeOut(Param1: Single); safecall;
    function Get_DSRHolding: WordBool; safecall;
    function GetTiffTagByNumber(var FileToSearch: WideString; TagNum: Integer; IFDNumber: Integer): WideString; safecall;
    function EnumTiffTags(var FileToSearch: WideString; IFDNumber: Integer): OleVariant; safecall;
    procedure GetTagData(var TagIndex: Integer; var TagValue: Integer; var TagName: WideString; 
                         var TagDesc: WideString); safecall;
    function GetTiffTagNumByIndex(var FileToSearch: WideString; IndexNum: Integer; 
                                  IFDNumber: Integer): Integer; safecall;
    function TransmitCurrentImage(const ImgFileName: WideString; var StatusMsg: WideString; 
                                  var MTParams: OleVariant): Integer; safecall;
    function SendNextImage(const ImgFileName: WideString; var StatusMsg: WideString; 
                           var MTParams: OleVariant): Integer; safecall;
    property CommPort: Smallint read Get_CommPort write Set_CommPort;
    property Settings: WideString read Get_Settings write Set_Settings;
    property PortOpen: WordBool read Get_PortOpen write Set_PortOpen;
    property MicrData: WideString read Get_MicrData write Set_MicrData;
    property MicrTimeOut: Single read Get_MicrTimeOut write Set_MicrTimeOut;
    property DSRHolding: WordBool read Get_DSRHolding;
  end;// *********************************************************************//
// DispIntf:  _MicrImageDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}
// *********************************************************************//
  _MicrImageDisp = dispinterface
    ['{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}']
     //deleted....
  end;// *********************************************************************//
// DispIntf:  __MicrImage
// Flags:     (4240) Hidden NonExtensible Dispatchable
// GUID:      {991313A3-D27E-45A1-97F2-3420D1528330}
// *********************************************************************//
  __MicrImage = dispinterface
    ['{991313A3-D27E-45A1-97F2-3420D1528330}']
    procedure MicrDataReceived; dispid 1;
  end;implementationuses ComObj;end.