Trocar Vírgula Por Ponto em Delphi

Olá, Bom dia a Todos...
Como primeira dica, vamos postar algo simples, porém muito útil para desenvolvedores iniciantes com o Delphi.


function TForm1.TrocaVirgulaPPonto(Valor: string): String;
begin
  Result := trim(StringReplace(Valor,',','.',[rfReplaceall]));
end;



    OBS.: Para fins de compatibilidade, esta dica foi escrita usando Delphi XE3.

Esta foi a dica de hoje, podem comentar a vontade.
Atenciosamente
Dica Chave.