Estas funciones las uso en mis aplicaciones:
Código Delphi
[-]
function StrToFloatDec(s: string; SeparadorDecimal: char): double;
begin
if (DecimalSeparator <> SeparadorDecimal) then
s := StringReplace(s, SeparadorDecimal, DecimalSeparator, []);
Result := StrToFloat(s);
end;
Código Delphi
[-]
function StrToFloatDef(s: string; Default: double): double;
begin
try
s := Trim(StringReplace(s, ThousandSeparator, '', [rfReplaceAll]));
if (s = '') then
Result := Default
else
Result := StrToFloat(s);
except
Result := Default;
end;
end;