title: Is there a StrToCurr like function that can deal with thousand separators?
body: <p>I have a similar case <a href="https://stackoverflow.com/questions/25828219/delphi-xe5-strtofloat-failure-changing-thousandseparator-to">as in this question</a>.</p>
  
  <pre><code>procedure TForm2.FormCreate(Sender: TObject);
  var
    S: string;
    C: Currency;
    FormatSettings: TFormatSettings;
  begin
    S := '1.000.000,00';
    FormatSettings := TFormatSettings.Create;
    FormatSettings.ThousandSeparator := '.';
    FormatSettings.DecimalSeparator := ',';
    // raises an Exception which is "as designed" as per the documentation
    C := StrToCurr(S, FormatSettings);
    ShowMessage(FormatCurr(',0.00', C));
  end;
  </code></pre>
  
  <p>To quote David:</p>
  
  <blockquote>
    <p>So it is a mistake to pass a string containing a thousands separator
    to this function.</p>
  </blockquote>
  
  <p>So then does Delphi have any built-in function that will parse currency strings that contain thousand separators?</p>