function CreateMethodPointer(const Instance: IDispatch; DispID: Integer; TypeInfo: PTypeInfo): TMethod; overload;

TMethod CreateMethodPointer(const IDispatch Instance, int DispID, PTypeInfo TypeInfo);