en contrar el ultimo dia del mes

[GustavoCruz]

hola a todos, en estos momentos estoy desarrollando una aplicación y tengo un pequeño problema con los componentes Tdatetimepicker, tengo una función que me busca el último dias del mes, esta es llamada desde en el evento onChange del componente tdatetimepicker, el codigo es el siguiente:

Código Delphi [-]
function TfPrincipal.DiasMes(fecha: TdateTime): integer;
 var
    ano, mes, dia: Word;
 begin
    DecodeDate( fecha, ano, mes, dia );
      Result:=0;
      case mes of
      2:  if IsLeapYear(ano) then Result:=29 else Result:=28;
      1,3,5,7,8,10,12: Result:=31;
      4,6,9,11:        Result:=30;
   end;
 end;

el problema radica cuando cambio el mes a uno que tiene menos días que el anterior, es decir, de agosto a septiembre.

espero haberme hecho explicar y de antemano gracias por todos los aportes que me puedan dar. Estaré atento a ellos...