(8) 不能被覆盖的方法与不能被继承的类。

  TMyForm = class
    private
      FName : String;
      FAge : Integer;
    protected
      procedure ShowName;virtual; // 将要被覆盖的虚方法。
  end;

  TMyForm2 = class(TMyForm)
    Procedure ShowName;override; // 覆盖；
  end;

  TMyForm3 = class(TMyForm2)
    procedure ShowName;override;final; // 最终覆盖，再往下就无法覆盖了。Final指令字的作用就让方法无法继续覆盖。
  end;

    One = class sealed      //不可继承的类，sealed指令字表示这个类无法继承。

    end;