class TAlignEdit : public TEdit
{
  private:
    TEdit *FEdit;
    void __fastcall EditOnExit(TObject *Sender);
  protected:
  public:
    __fastcall TAlignEdit(TComponent* Owner,TEdit *edt);
    virtual void __fastcall CreateParams(TCreateParams &Params);
};    __fastcall TAlignEdit::TAlignEdit(TComponent* Owner,TEdit *edt) : TEdit(Owner)
{
  FEdit = edt;
  FEdit->OnExit = EditOnExit;
}    void __fastcall TAlignEdit::CreateParams(TCreateParams &Params)
{
  TEdit::CreateParams(Params);
  Params.Style = Params.Style | ES_RIGHT;
}    void __fastcall TAlignEdit::EditOnExit(TObject *Sender)
{
  TCreateParams Params;
  CreateParams(Params);
}