怎样在DELPHI里响应COM接口的事件?

Question

// *********************************************************************//
  _IApplicationEvents = dispinterface
    ['{3C31BF76-2837-4BFA-A19E-34485A213F29}']
    procedure ReceiveCurConf(var Conf: OleVariant); dispid 1;
    procedure StatusChange(Status: Integer; const bstrDetail: WideString); dispid 2;
  end;IApplication = interface(IDispatch)
    ['{98AA9DD3-0715-4170-8A96-04F06C8BAD49}']
    procedure Connect(shType: Smallint; const bstrServerIP: WideString; const bstrUser: WideString; 
                      const bstrPass: WideString); safecall;
    procedure DisConnect; safecall;
    function IsConnect: Smallint; safecall;
    function GetSessions: IDispatch; safecall;
    procedure Exit; safecall;
    procedure ShowServer; safecall;
    function GetCurrentAccount: WideString; safecall;
    function GetCurrentHost: WideString; safecall;
  end;// *********************************************************************//
// DispIntf:  IApplicationDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {98AA9DD3-0715-4170-8A96-04F06C8BAD49}
// *********************************************************************//
  IApplicationDisp = dispinterface
    ['{98AA9DD3-0715-4170-8A96-04F06C8BAD49}']
    procedure Connect(shType: Smallint; const bstrServerIP: WideString; const bstrUser: WideString; 
                      const bstrPass: WideString); dispid 1;
    procedure DisConnect; dispid 2;
    function IsConnect: Smallint; dispid 3;
    function GetSessions: IDispatch; dispid 4;
    procedure Exit; dispid 5;
    procedure ShowServer; dispid 6;
    function GetCurrentAccount: WideString; dispid 7;
    function GetCurrentHost: WideString; dispid 8;
  end;procedure ReceiveCurConf   StatusChange
这两个咋调用，处理？
（我看了http://www.swissdelphicenter.ch/torry/showcode.php?id=2058
还是没有看明白，请高手指定，感谢！！！！急！！！）

Answer 1

在UI上调用：
Use
  XXX.TLB
var
  I1:ApplicationEvents;
begin
  I1:= 接口实现类.Create as I1;
end;

Answer 2

Use 
  XXX.TLB 
var 
  I1:ApplicationEvents; 
begin 
  I1:= 接口实现类.Create as I1; 
  I1.ReceiveCurConf   
end; 

Answer 3

还是不明白,ReceiveCurConf   StatusChange 
这二个方面的实现部分是如何与调用部分设定为关系的.能不能说详细一点?谢谢!!

Answer 4

ReceiveCurConf   StatusChange 这二个方面是服务端来调用的,客户端写实现的部分,在客户如何将这二个实现 的部分写出来.