关于Trunc的问题，为什么出错，具体怎么使用Trunc

Question

关于Trunc的问题，为什么出错，具体怎么使用Trunc,请指教！下面是我做的实现四舍五入的方式代码
procedure TForm1.Edit1Exit(Sender: TObject);  //四舍五入2位实现方式
var
ab:real;
dd,cc,ee:real;
begin
ab :=strtofloat(edit1.Text);
edit2.Text :=floattostr(RoundingOff(ab,2));
//dd:=((ab*1000+5)/10);
//cc :=Trunc(dd);     //单独就正确，数据为93431.17
//ee :=cc/100;
ee :=(Trunc((ab*1000+5)/10))/100; //为什么这句代替以上三句就算错
//而用上面的三句就没事，测试数据93431.165保留两位小数，老是93431.16
edit4.text :=floattostr(ee);
end;

Answer 1

edit2.Text :=floattostr(RoundingOff(ab,2));
这句是多余的，可以删掉

Answer 2

uses
  MatchEdit2.Text := FloatToStr(SimpleRoundTo(93431.165));  // 93431.17