[navbuoy]

si utilizas FloatToStr() lo conviertes a cadena de texto, quizas deberias usar la funcion FormatFloat()

La función FormatFloat en Delphi se utiliza para dar formato a un número de punto flotante (float) de acuerdo con una cadena de formato especificada.

Sintaxis:

function FormatFloat(const Format: string; Value: Extended): string;

Format: Especifica cómo debe formatearse el número, utilizando ciertos caracteres especiales.
Value: Es el número que deseas formatear.

Ejemplo:

var
  formattedValue: string;
  number: Double;
begin
  number := 12345.6789;
  formattedValue := FormatFloat('#,##0.00', number);
  ShowMessage(formattedValue);  // Resultado: "12,345.68"
end;

Caracteres comunes para el formato:
0: Se usa para forzar la aparición de ceros en posiciones vacías.
#: Representa un dígito opcional. No se muestra si no hay dígito en esa posición.
.: Se utiliza como separador decimal.
,: Se utiliza como separador de miles.