Solving the problem of the round of the whole function in Delphi

There is a bug in the round function in Delphi
Once the parameter is a number such as xxx.5
If XXX is odd then it will Round up
If XXX is an even number then it will Round down
For example Round (17.5) =18
But Round (12.5) =12
The following function corrects this Bug, but it's temporary.
Execution Doround (12.5) results are 13 correct

[Delphi]View PlainCopy

2. function Doround (value:extended): Int64;
4. procedure SET8087CW (Newcw:word);
6. ASM
8. MOV Default8087cw,ax
10. Fnclex
12. FLDCW DEFAULT8087CW
14. end;
16. Const
18. ROUNDUPCW = $1b32;
20. Var
22. Oldcw:word;
24. Begin
26. OLDCW: = DEFAULT8087CW;
28. Try
30. SET8087CW (ROUNDUPCW);
32. Result: = Round (Value);
34. finally
36. SET8087CW (OLDCW);
38. end;
40. End

http://blog.csdn.net/chaijunkun/article/details/5519153

Solving the problem of the round of the whole function in Delphi