[[maeyanes]]

Si usas Delphi 7, la unidad se llama DateUtils...

Y contiene 2 funciones que podrías usar:

Código Delphi [-]
// Esta recibe como parámetro un TDateTime
function DaysInMonth(const AValue: TDateTime): Word;
// Esta recibe el año y el mes como parámetro
function DaysInAMonth(const AYear, AMonth: Word): Word;