Código Delphi [-]sedit1.text:=formatfloat('#,',strtoFloat(sedit1.text));
sedit1.text:=formatfloat('#,',strtoFloat(sedit1.text));