Source position: pastounittest.pp line 45
type TTestpropertyOptions = set of (
Default
tGetBounds,
tRequired,
tNotify,
tMaxLen
);