GUID aguid;
_di_IInterface a, c;
Calld::TEventSink* FEventSink;
Server_tlb::_di_IServerWithEvents FServer;
FServer = CoServerWithEvents::Create(); // FServer
a = CoServerWithEvents::Create(); // FServer
FEventSink = new Calld::TEventSink(); // FEventSink
FEventSink->GetInterface<>(c);
System::Win::Comobj::InterfaceConnect(FServer, aguid, c, FCookie);
http://docwiki.embarcadero.com/RADStudio/XE8/en/Implementing_Interfaces:_Delphi_and_C%2B%2B
https://books.google.com.hk/books?id=74QctX2heRsC&pg=PA295&lpg=PA295&dq=_di_IInterface&source=bl&ots=12214NAI6_&sig=SkyWb5VZqrTaKYbrT5MXGhAMR0w&hl=zh-TW&sa=X&ved=0CFoQ6AEwCGoVChMI1puWlciTxwIVZ56mCh2A5AaO#v=onepage&q=_di_IInterface&f=false