Tausender-Trennzeichen in einem Zahlenstring einfügen

[Mystic]

Funktioniert nicht?

PS: Noch eine Optimierung...

Delphi-Quellcode:

if komma then begin
  .
  .
  .
end else begin
  .
  .
  .
end;