com dll이 존재하는데 여기에서 이벤트가 발생됩니다. 클라이언트를 만들려는데 델파이로 이 com에서 제공하는 이벤트를 어떻게 받아야 하는지 알수가 없네요. 자료가 하나도 없어요. 개발자그룹을 다 돌아다녀도 여기에 대한 설명은 하나도 없군요. 님 혹시 아신다면 답변좀부탁드립니다.

외국 사이트를 돌아다니니 com이벤트에서 아래부분을 구현을 해야 한다고 해서 아래부분은 처리를 해놓구 메인에서 연결도 시켜놨습니다. 다른 빠진 작업이 있나요? 아님 다른 방법으로 처리를 해야 하나요?
  TEventSink = class( TInterfacedObject, IUnknown, IDispatch)
  private
    FController : TfmTuna;
    {IUnknown Method}
    function QueryInterface( const IID: TGUID; out Obj):HResult;stdcall;
    {IDispatch}
    function GetTypeInfoCount( out Count: Integer):HResult;stdcall;
    function GetTypeInfo(index, LocaleID: integer; out TypeInfo):HResult;stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer;
          DispIDs: Pointer):HResult;stdcall;
    function Invoke(DispID:Integer; const IID: TGUID; LocalID: Integer;
        Flags:Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer):HResult;stdcall;
  public
    constructor Create(Controller: TfmTuna);

  end;