FormatFloat('#,'...); Become working incorrect after changing screen resolution

Original Reporter info from Mantis: MikhsilSV

• Reporter name: Mikhail

Description:

Number groups divisor in FormatFloat function becomes invalid after screen reso change

Steps to reproduce:

<code>
procedure TForm1.Button1Click(Sender: TObject);
 var s:string;
begin
  s:=formatfloat('#,', 1500000000.0);
  Memo1.Lines.Add(s);
end;
</code>

Press button1, change screen resolution, press button1 again

Additional information:

---Output of program---
Memo1
1,500,000,000
---after screen resolution has been changed---
1?500?000?000

Mantis conversion info:

• Mantis ID: 30253
• OS: Windows
• OS Build: 7 x64, 8.1 x64
• Platform: x86
• Version: 1.7 (SVN)
• Fixed in revision: 52480 (#b13ba1b0)