Trocar vírgula por ponto em Delphi

function TrocaVirgPPto(Valor: string): String;

   var i:integer;

begin

    if Valor <> '' then begin

        for i := 0 to Length(Valor) do begin

            if Valor[i]='.' then begin

                Valor[i]:=',';

            end

            else if Valor[i] = ',' then begin

                Valor[i]:='.';

            end;

        end;

     end;

     Result := valor;

end;