ABADev blog

function GetFormattedNumber(Value: Double): string; 
 
  function GetLastPos(const s: string): Integer; 
  begin 
    Result := Pos(DecimalSeparator, s)-1; 
    if (Result < 1) then 
      Result := Length(s) 
  end; 
 
var 
  i: Integer; 
begin 
  Result := FloatToStr(Value); 
  i := 3; 
  while (i < GetLastPos(Result)) do 
  begin 
    Insert(' ', Result, GetLastPos(Result)-i+1); 
    Inc(i, 4) 
  end; 
end;

  lblTotal.Caption := GetFormattedNumber(123456.789);