[[Bicho]]

Hola si añades al uses DateUtils, tienes un montón de funciones de manejo de fechas y para tú caso puedes mirar:

DaysInMonth(const AValue: TDateTime): Word;
DaysInAMonth(const AYear, AMonth: Word): Word;
DayOfTheMonth

Espero te sirva.

Saludos