如何在delphi中将IDispatchEx类型转换为TAutoIntfObject

Question

如何在delphi中将IDispatchEx转换为TAutoIntfObject。

var
    ValueEx: IDispatchEx;
    MyPropertyValue: Variant;
    AutoObj: TAutoIntfObject; 
begin
    Supports( IDispatch(MyPropertyValue), IDispatchEx, ValueEx );
    AutoObj := ValueEx as TAutoIntfObject; ---> this line occured error
end;