C++Builder XE-4 не работает AutoSize в TEdit

Edit1->Width = Form1->Canvas->TextWidth(Edit1->Text);

// в Header-файле, перед описанием класса формы
namespace Autosized_Edit
{
    class TEdit : public Stdctrls::TEdit
    {
    private:
        bool FAutoSized;
        void SetAutoSized(bool AValue)
        {
            if(AValue != FAutoSized)
            {
                FAutoSized = AValue;
                if(AValue)
                    Change();
            }
        }
 
    protected:
        DYNAMIC void __fastcall Change(void)
        {
            if(FAutoSized)
            {
                TControlCanvas *ccv = new TControlCanvas;
                ccv->Control = this;
                Width = ccv->TextWidth(Text) + 10; // размер - по желанию
                delete ccv;
            }
            Stdctrls::TEdit::Change();
        }
 
    public:
        __fastcall virtual TEdit(Classes::TComponent* AOwner)
            : Stdctrls::TEdit(AOwner)
        {
            FAutoSized = false;
        }
        __property bool AutoSized = { read=FAutoSized, write=SetAutoSized };
    };
};
#define TEdit Autosized_Edit::TEdit

                ccv->Font = this->Font;
                Width = ccv->TextWidth(Text);

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    OldEditWindowProc = Edit1->WindowProc;
    Edit1->WindowProc = EditWindowProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EditWindowProc(TMessage &msg)
{
    OldEditWindowProc(msg);
    if(msg.Msg==0x84) HideCaret(Edit1->Handle); 
}
//---------------------------------------------------------------------------

  void __fastcall EditWindowProc(TMessage&);
  TWndMethod OldEditWindowProc;