Tausenderpunkt einfügen

[Poring]

Hallo,

ich möchte gerne auf einem Label eine Zahl mit dem Tausenderpunkt ausgeben.
Versucht habe ich dies mit:

Delphi-Quellcode:

var
fs: TFormatSettings;
Zahl:=Real;
begin
fs.ThousandSeparator:='.';

Zahl:=28304;
Label1.Caption:=FloatToStr(Zahl, fs);

Auf dem Label wird die Zahl angezeigt, nur leider ohne den Tausenderpunkt.
Was könnte ich tun?

Mfg

[mkinzler]

FloatToStrF( Zahl, ffNumber, 10,2);

[Poring]

Herzlichen Dank!