Incorrect rounding with Delphi?

Delphi's Round function behaves in an unexpected way:

• Odd nummers that end in .5 are rounded upwards, that's the traditional behavior, but...
• Even numbers that end in .5 are rounded downwards!

  This means:
  i:= Round(11.5) // returns 12 ...but...
  i := Round(10.5) // ...returns 10 !
  
  Already since the first release of Borland Pascal, the Round function used a "bankers rounding" algorithm. While this is good for financial stuff, for other calculations we want traditional rounding, i.e. always round 0.5 upwards. This custom function gives the desired result:

  function RoundCorrect(R: Real): LongInt;
  begin
    Result:= Trunc(R);       // extract the integer part 
    if Frac(R) >= 0.5 then   // if fractional part >= 0.5 then...
      Result:= Result + 1;   // ...add 1
  end;