一个delphi的四舍五入函数,用来替换SysUtil中的FormatFloat;