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;