Выравнивание текста в TEdit

int EditWidth = Edit1->Width ;
int EditTextWidth = this->Canvas->TextWidth( Edit1->Text );

// в Header-файле, перед описанием класса формы
namespace Aligned_Edit
{
    class TEdit : public Stdctrls::TEdit
    {
    private:
        int FStyle;
        void MySetStyle(int AStyle)
        {
            if(AStyle != FStyle)
            {
                FStyle = AStyle;
                RecreateWnd();
            }
        }
 
    protected:
        virtual void __fastcall CreateParams(Controls::TCreateParams &Params)
        {
            Stdctrls::TEdit::CreateParams(Params);
            Params.Style |= FStyle;
        }
 
    public:
        __fastcall virtual TEdit(Classes::TComponent* AOwner)
            : Stdctrls::TEdit(AOwner)
        {
            FStyle = ES_LEFT;
        }
        __property int MyAlignment = { read=FStyle, write=MySetStyle };
    };
};
#define TEdit Aligned_Edit::TEdit
 
// Дальше - класс формы, как обычно
class TForm1 : public TForm

    Edit1->MyAlignment = ES_RIGHT;
    Edit2->MyAlignment = ES_CENTER;

namespace Aligned_Edit
{
    class TEdit : public Stdctrls::TEdit
    {
    public:
        using Stdctrls::TEdit::Alignment;
    };
};
#define TEdit Aligned_Edit::TEdit

DWORD h = GetWindowLong(Ed2->Handle, GWL_STYLE);
   SetWindowLong(Ed2->Handle, GWL_STYLE, h | ES_CENTER | ES_NUMBER);
   Ed2->Refresh();