一個delphi的四舍五入函數，用來替換SysUtil中的FormatFloat;