procedure TForm1.Button1Click(Sender: TObject);
var
OldSysLocal:TSysLocale;
begin
OldSysLocal:=SysLocale;// pour pouvoir le remettre
SysLocale.MiddleEast := True;
Edit1.BiDiMode := bdRightToLeft;
end;
Un Saludo
Muchas gracias por este pedaso de programa me ayudo mucho