Escrever valores da Direita para Esquerda em um Edit

[Jhonas]

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.Clear;
  SysLocale.MiddleEast := true;
  Edit1.BiDiMode := bdRightToLeft;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if pos('R$',Edit1.Text) > 0 then
       Edit1.Clear;

    if key = #13 then
       begin
          Edit1.text := 'R$ ' + formatfloat(',0.00',strtofloat(trim(Edit1.text)));
          exit;
       end;

    if not (key in ['0'..'9',',', #8]) then
       key := #0;
end;

Jhonas .... abraços