Aceitar digitação de ponto em números, independente da conf. do windows

{Aceitar digitação de ponto em números, independente das configurações do Windows}


function StrToFloatF(e:String):Double;
var
p:Integer;
begin
while true do begin
p:=Pos(ThousandSeparator,e);
if p<=0 then
break
Else
Delete(e,p,1);
End;

result:=StrToFloat(e);
End;