How do I format an Integer using current locale in Delphi

Question

var i : integer;

i := 1234567;

Given the above, I want the string \"1,234,567\" as output (assuming UK locale). IntToStr just gives me \"1234567\"

Answer 1

I have this function to do it, where d means perhaps decimal number:

function dn(i: integer): string; 
begin 
  result := format('%.0n', [i.ToDouble]) 
end;