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)