const
  PFM_ALIGNMENT                       = $00000008;
  EM_SETPARAFORMAT                    = WM_USER + 71;
var
 Paragraph: TParaFormat2;

begin
 FillChar(Paragraph, SizeOf(Paragraph), 0);
 Paragraph.cbSize := SizeOf(Paragraph);
 with Paragraph do
 begin
   dwMask := PFM_ALIGNMENT;
   wAlignment := Ord(raRight) + 1;
 end;
 SendMessage(MFBox.Handle, EM_SETPARAFORMAT, 0, LPARAM(@Paragraph));

 Perform(CM_BASE + 60{CM_BIDIMODECHANGED}, 0, 0);
end;