Hola. Creo que deberías utilizar la función FormatFloat. Puedes dirigirte a la ayuda de delphi para ver como se utiliza, pero a grandes rasgos, para tu necesidad sería algo así:
Código Delphi
[-]Edit1.Text := FormatFloat(',',10000);
o si deseas que muestre decimales:
Código Delphi
[-]Edit1.Text := FormatFloat(',.00',10000);
También puedes utilizar un TDBEdit y establecer una máscara en el DataSet.
Los valores te conviene almacenarlos en campos de tipo Float.
Saludos.