DWORD dwStyle = GetWindowLong(Edit1->Handle, GWL_STYLE);
dwStyle = dwStyle | ES_RIGHT; //(oder BS_LEFT, oder BS_CENTER)
SetWindowLong(Edit1->Handle, GWL_STYLE, dwStyle);
Edit1->Invalidate();
dwStyle = dwStyle | ES_RIGHT; //(oder BS_LEFT, oder BS_CENTER)
SetWindowLong(Edit1->Handle, GWL_STYLE, dwStyle);
Edit1->Invalidate();