TEdit控件的BiDiMode属性无效

已经Edit1.BiDiMode := bdRightToLeft;无法让文件显示从右到左，也看过其它属性，没有发现有可以可此属性相关以使期生效的。请问一下，除了这样设置之外，还要加上TEdit的什么属性才能让BiDiMode属性生效？随便说明一下原因?

感觉比较奇怪，既然设置了无效，还出现在property面版让人设置，倒了！

主要是要让TEdit控件的文本显示的右边，请不必介绍其它第三方控件，谢谢

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
  Edit1.Invalidate;

  edit1.Text :='你好';
end;

另一个办法：
procedure TForm1.FormCreate(Sender: TObject);
begin
  SysLocale.MiddleEast :=true;//关键
  edit1.BiDiMode := bdRightToLeft;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text :='你好';
end;