Delphi 类声明方式

TMyObject = class(TObject)
    FName: string; {数据成员(Field)}
    FAge: Integer;
  private   {私有的}   {最为隐秘的访问程度}
    procedure SetAge(Value: Integer);
  protected {受保护的} {中等程度的访问能力}
    procedure IAmAStatic;                             {静态方法}
    procedure IAmAVirtual; virtual;                   {虚方法}
    procedure IAmADynamic; dynamic;                   {动态方法}
    procedure IAmAVirtualAbstract; virtual; abstract; {抽象虚方法}
  public    {共有的}   {最大程度的访问能力}
    constructor Create;                                      {构造方法(函数)}
    destructor Destroy;                                      {析构方法(函数)}
    class procedure ShowTest;                                {类方法<方法前加class>}
    procedure Test_1;                                        {过程}
    function Test_2: Integer;                                {函数}
    procedure WMChar(var message: TWMChar); message WM_CHAR; {消息处理方法}
  published {公布的}   {最大程度的访问能力} {可见属性}
    property Name: string read FName write FName; {属性(property)}
    property Age: Integer read FAge write SetAge; {属性(property)}
    property Coms stored False; // 默认值<待测试>
  automated {自动的}
    // 基本不用
  end;