delphi - Delphi 2010中的"is"语句的行为与Delphi 7中的不同吗？

Question

为什么下面的代码在Delphi 7中返回TRUE，而在Delphi 2010中返回FALSE？ TBitBtn是TButton的后代。

    type
      TForm1 = class(TForm)
        Button1: TButton;
        BitBtn1: TBitBtn;
        procedure Button1Click(Sender: TObject);
      private
      public
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TestControl( aControl: TControl);
    begin
      if (aControl is TButton) then showmessage('TRUE') else showmessage('FALSE');
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      TestControl(BitBtn1);
    end;

Answer 1

is不变。声明为TBitBtn is a subtype of TCustomButton，而不是TButton。