Tausender in einem "integer-string" mit Punkt kennzeichnen

[Oldy]

Hallo nochmal
Ich bekomme aus einer Inputbox einen String, der rein aus einer zahl besteht, z.B. "1000000" (ohne "")
Nun möchte ich , dass das Programm zur besseren Lesbarkeit die Tausender kennzeichnet, also dass das dann so aussieht: "1.000.000"(ohne "") .
wie mache ich das am klügsten?

[Satty67]

aString := Format('%.0n',[aInteger / 1]); hab' ich von himitsu

meine alte manuelle Methode war:

Delphi-Quellcode:

function FormatInt(Int : Int64) : string;
var
  i : Integer;
begin
  Result := IntToStr(Int);
  i := Length(Result) -3;
  while i > 0 do begin
    Insert(ThousandSeparator, Result, i+1);
    dec(i,3);
  end;
end;