Delphi 2010 "est" déclaration se comporte différemment de Delphi 7?

Question

Pourquoi le code ci-dessous renvoie TRUE dans Delphi 7 et FALSE dans Delphi 2010? TBitBtn est un descendant de 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 n'a pas changé. TBitBtn is a subtype of TCustomButton, pas TButton, comme vous le dites.