1type
2  ITypeInfo = interface(INamedItemInfo)
3    ['{2B6A5E20-3C36-4574-89DB-7C873A5C4A00}']
4    function Get_Required: WordBool; safecall;
5    function Get_SimpleType: TSimpleType; safecall;
6    property Required: WordBool read Get_Required;
7    property SimpleType: TSimpleType read Get_SimpleType;
8  end;