菜鸟求助(100分)

我想在一个Edit中实现输入时输入的内容是从右向左显示，刚输入的字符是显示在最右面，怎么实现？？或者有没有什么类似的控件来实现？？？？？

type
TEditEx = class(TEdit)
protected
procedure CreateParams(var Params: TCreateParams);
override;

end;


{ TEditEx }

procedure TEditEx.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.Style := Params.Style or ES_RIGHT;

end;


procedure TForm1.FormCreate(Sender: TObject);

begin

with TEditEx.Create(Self) do
begin

Parent := Self;

//Left
//Top
end;

end;