Tausender-Trennzeichen in einem Zahlenstring einfügen

[TypusMensch]

Delphi-Quellcode:

function ThouSep2(sTemp: String; cTemp: Char): String;
var
  iTemp: Integer;
begin
sTemp := FormatFloat(',0.00',StrToFloat(sTemp)); //die einzige einzufügende Zeile - LOOOOL
Result := sTemp;
iTemp := Length(sTemp) -5;
while iTemp > 1 do
  begin
  Insert(cTemp, Result, iTemp);
  iTemp := iTemp -3;
  end;
end;

Edit:
---> Funktioniert nicht...

Delphi-Quellcode:

function ThouSep2(sTemp: String; cTemp: Char): String;
var
  iTemp: Integer;
  komma:boolean;

begin
komma := Pos(',',stemp) > 0;

if komma = True then
  begin
  Result := sTemp;
  iTemp := Length(sTemp) -5;
  while iTemp > 1 do
    begin
    Insert(cTemp, Result, iTemp);
    iTemp := iTemp -3;
    end;
  end;

if komma = False then
  begin
  Result := sTemp;
  iTemp := Length(sTemp) -2;
  while iTemp > 1 do
    begin
    Insert(cTemp, Result, iTemp);
    iTemp := iTemp -3;
    end;
  Result := Result + ',00';
  end;
end;

---> Funktioniert einwandfrei...!

ThX