Delphi四舍五入函数。