Hola.
Otra opción:
Código PHP:
...
TSysLocale OldSysLocale = SysLocale;
void __fastcall TForm1::Button1Click(TObject *Sender) // u OnCreate
{
SysLocale.MiddleEast = true;
Edit1->BiDiMode = bdRightToLeft;
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
SysLocale = OldSysLocale;
}
Saludos