//标准语法

  TMyClass1 = class(TObject)

  end;

---

  //如果是继承自 TObject 可以省略

  TMyClass2 = class

  end;

---

  //可以实现多个接口; 实现接口时经常用到 TInterfacedObject 类, 它实现了接口的默认方法

  TMyClass3 = class(TInterfacedObject, Interface1, Interface2)

  end;

---

  //现在 TMyClass4 相当于 TObject 的别名

  TMyClass4 = class(TObject);

---

  //用 class abstract 说明抽象类, 但内部必须有抽象方法, 才是真正的抽象类.

  TMyClass5 = class abstract(TObject)

    procedure Proc; virtual; abstract;

  end;

---

  //用 class sealed 定义不可继承的类

  TMyClass6 = class sealed(TObject)

   //...

  end;

---

  //这是定义了一个 TObject 类型的指针; TMyClass 称作 TObject 的类引用或元类

  TMyClass = class of TObject;

---

//类中数据成员的排列顺序一般是: 字段、方法、属性

---

//访问权限区域的顺序一般是:

  无限制区(默认 published)

  private

  protected

  public

  published