Konstante ist nicht konstant?

[xZise]

Warum ist Wert 1 auf einmal so krum?

Delphi-Quellcode:

const
  MONEY: array[1..26] of Single = (0.01, 0.20, 0.50, 1, 5, 10, 20, 50, 100, 200, 300, 400, 500,
                                   1000, 2500, 5000, 7500, 10000, 12500, 15000, 20000, 25000,
                                   50000, 100000, 150000, 250000);

Ergebnis:

Zitat:

Money[MoneyBag[sb.Tag]]: 0,0099999997765

Warum passiert das einfach so?