Hola Impadron.
Esta propuesta de Marcos:
Alinear Edit, me funciona perfectamente.
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TSysLocale SL = SysLocale;
SysLocale.MiddleEast = true;
Edit1->BiDiMode = bdRightToLeft;
SysLocale = SL;
}
Saludos.