Delphi 中浮点比较的怪问题

 今天遇着一个怪问题(Delphi 7)

var

  sglBase,sglBase1,sglThis,sglB,sglUp,sglDown : double;  //这里即使用Extended类型也是不行

begin

    with cxGrd.datacontroller do  //此处为cxgrid 网格控件

    begin

          sglthis := strtofloat(vartostrdef(getvalue(focusedrecordindex,columnIndex),'0'));  //这里取得的输入值为 34.45

         sglB := strtofloat(vartostrdef(getvalue(focusedrecordindex,BasecolumnIndex),'0'));  //这里是比较用的基出值，也是34.44

         sglUp :=