[Alexander]

Tienes toda la razón. Me funciona perfecto.
Coloqué en el DataModule el código

initialization
  ThousandSeparator := ',';
  DecimalSeparator := '.';

Y cambié la siguiente línea

  FormatFloat('#,###.#0 ',StrToFloat(AViewInfo.DisplayValue))

por esta línea de código

  FormatFloat('#,###.#0 ',AViewInfo.Value)

Estaba tratanto de convertir el String, no el valor.
Y ya me funciona muy bien. Haré el cambio en todo el programa.

Muchas gracias por tomarte el tiempo de ayudarme. SUERTE

Alexander