Zitat:
Aus dem 02.05.2009 wird doch der 02.05.2008 gemacht (zumindest bis übermorgen).
Zitat:
minDate := IncYear(StartOfAYear(YearOf(date)));
du benutzt aber für die Initialisierung das aktuelle Datum und nicht den Eintrag aus der Liste, der bleibt völlig unberührt.