Salut,
en utilisant l'unité DateUtils et la fonction EndOfAMonth comme ceci par exemple:
Label2.Caption := FormatDateTime('"Le dernier jour du mois de" mmmm yyyy "est le :" dddd d', EndOfAMonth(2015, 9));
ce code affiche le dernier jour du mois de Septembre 2015