Modificar separador e moeda

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure ExibirMoeda;
    procedure ExibirSeparadorMilhar;
  public
    { Public declarations }
  end;

procedure TForm1.ExibirMoeda;
begin
  ShowMessage('Atual CurrencyString : ' + CurrencyString);
  CurrencyString := 'U$$';
  ShowMessage('Modificado CurrencyString : ' + CurrencyString);
end;

procedure TForm1.ExibirSeparadorMilhar;
begin
  ShowMessage('Atual ThousandSeparator : ' + FormatFloat('###,##0.#0', 1000000));
  ThousandSeparator := '-';
  ShowMessage('Modificado ThousandSeparator : ' + FormatFloat('###,##0.#0', 1000000));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     ExibirMoeda;
     ExibirSeparadorMilhar;
end;