Source position: fpddcodegen.pp line 39
type TVisibilities = set of (
vPrivate,
vProtected,
vPublic,
vPublished
);