[marcoszorrilla]

Prueba este código:

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
  OldSysLocal:TSysLocale;
  begin
  OldSysLocal:=SysLocale;// pour pouvoir le remettre
  SysLocale.MiddleEast := True;
  Edit1.BiDiMode := bdRightToLeft;
  end;

Un Saludo