1type
2  IBooleanInfo = interface(ITypeInfo)
3    ['{8256EDF9-8613-4970-850C-50047839D6BF}']
4    function Get_TrueValue: WideString; safecall;
5    function Get_FalseValue: WideString; safecall;
6    property TrueValue: WideString read Get_TrueValue;
7    property FalseValue: WideString read Get_FalseValue;
8  end;