Um genau zu sein ist Currency eine
Festkommazahl. In Delphi intern ist es ein normaler 64-bit Integer (bei dem die vier niederwertigsten Stellen als Nachkommastellen angesehen werden).
Und wie gesagt: Die Schleifen bieten sich geradezu an, in eine Funktion ausgelagert zu werden. Und auch die Strings wie "2-Euro-Stück" könnte man automatisch erzeugen.
