procedure TForm1.Button2Click(Sender: TObject); begin SysLocale.MiddleEast := True; Edit1.BiDiMode := bdRightToLeft; end;