Delphi6 , 怎么能得到 set 类型的 RTTI 信息？(50)

Procedure abcd;type TDigits = set of '0'..'9'
var tdSampledigi : TDigits
typeInfo : PTypeInfo;begin tdSampledigi := ['2', '4'..'7'];// typeInfo := PTypeInfo(TypeInfo(TDigits))^.Name);// typeInfo := TypeInfo(TDigits);//以上两句都不能被编译，一直提示 type Tdigits has no type infoend;