function DaysInMonth(Year, Month: Word): Word;
Entweder du bindest DateUtils vor TeeProcs ein
oder du gibst den Namespace an.
PS: Halte mal die Maus 'nen Sekündchen über deinen DaysInMonth-Aufruf
oder klicke mit der linken Maustaste, zusammen mit Strg auf DaysInMonth drauf.