Get Last Day in Month

How to get the date of the last day of the systems current month:
~~~~~~~~~~~~~~~~~~~~~~~~~
function LastDayCurrMon: TDate;
begin
result := EncodeDate(YearOf(Now),MonthOf(Now), DaysInMonth(Now)) ;
end;
{Usage:}
ShowMessage(DateToStr(LastDayCurrMon)) ;
~~~~~~~~~~~~~~~~~~~~~~~~~