ok_implicit_visibility
type TMyClass = class(TObject)
MyField: Integer;
procedure MyMethod;
property MyProperty: Integer read MyField write MyField;