// descobrir numero de dias em um mes
Declare na Uses a Unit DateUtils
use a função
DaysInAMonth(2002,4)
ele retornara quantos dias este mês tem....
consequentemente o ultimo.