das rezept
a) zuerst finde man das erste jahr, welches ohne rest duch 4 teilbar ist.
b) man prüfe ob es ein schaltjahr ist (funktion isLeapYear, aus der
unit dateutils)
c) falls ja, füge man das jahr, dem memo hinzu
d) man addiere 4 zur jahreszahl
e) if not ende then goto b
viele grüsse und noch viel erfolg