01type
02  IOptionInfo = interface(INamedItemInfo)
03    ['{453E81A2-969D-49DC-B3C6-ACAD411D63FC}']
04    function Get_TypeInfo: ITypeInfo; safecall;
05    function Get_Group: WideString; safecall;
06    function Get_Tab: WideString; safecall;
07    function Get_Value: OleVariant; safecall;
08    procedure Set_Value(Value: OleVariant); safecall;
09    property TypeInfo: ITypeInfo read Get_TypeInfo;
10    property Group: WideString read Get_Group;
11    property Tab: WideString read Get_Tab;
12    property Value: OleVariant read Get_Value write Set_Value;
13  end;