StrToFloat который принимает и точку и запятую

    function UStrToFloatDef(const S: string; const Def: Extended): Extended;
    const
        Komma: TFormatSettings = (DecimalSeparator: ',');
        Dot: TFormatSettings = (DecimalSeparator: '.');
    begin
        if not TryStrToFloat(S, Result, Komma) then
            if not TryStrToFloat(S, Result, Dot) then
                Result := Def;
    end;