procedure ConnectTo(svrIntf: IActiveIMMApp);

This is ConnectTo, a member of class TCActiveIMM.