Código Delphi [-]Label1.Caption := FormatFloat('#,#0', Valor);
Label1.Caption := FormatFloat('#,#0', Valor);