ok_strict_visibilities
type TStrictVisibility = class(TObject)
StrictPrivateInteger: integer;
StrictProtectedInteger: integer;
the visibility of StrictPrivateInteger is "strict private."
StrictPrivateInteger
the visibility of StrictProtectedInteger is "strict protected."
StrictProtectedInteger