Es gibt
verschiedene Arten zu runden.
Computer verwenden im allgemeinern das sog.
Banker's rounding während du wahrscheinlich
Kaufmännisches Runden erwartest.
Die Funktion Round() verwendet das Banker' rounding Verfahren.
PS: du verwendet den
Datentyp REAL.
Dieser Datentyp ist in Delphi veraltet und relativ ungenau.
Ersetze real durch
double (64bit) oder
Extended (80bit)!