obs: Também é possível utilizar a função StringReplace
Esta função troca a virgula pelo ponto em um valor Float.
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 Valor[i]:='.';
end;
end;
Result := valor;
end;
nota: Função atualizada com a ajuda de Josimar (josimar.unig@gmail.com)
