Delphi中如何让TEdit编辑框控件从右边开始输入数据呢？

type
TRightEdit = class(TEdit)

protected
procedure CreateParams(var Params:TCreateParams);override;
end;

procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style + ES_RIGHT;
end;

procedure Tfmainform.FormCreate(Sender: TObject);
begin
edt2 := TRightEdit.Create(Self);
with edt2 do
begin
Parent := pnl1;
Text := '0.';
Align := alTop;
Enabled := True;
ReadOnly := False;
Show;
end;
end;