Código Delphi [-] vValor:= StringReplace(vValor, '.', '', [rfReplaceAll]);
vValor:= StringReplace(vValor, '.', '', [rfReplaceAll]);