Source position: rttih.inc line 37
type TVisibilityClasses = set of (
vcPrivate,
vcProtected,
vcPublic,
vcPublished
);