Error en DateTimePicker

[Caminante]

Hola

Si solo es encontrar el primer y ultimo dia del mes de una fecha dada yo hago esto:

Código Delphi [-]
var
  Finicio,FFinal,Fecha:TDate;
begin
  Fecha:=date;
  finicio:=encodedate(YearOf(fecha),MonthOf(fecha),1);
  ffinal:=encodedate(yearof(fecha),MonthOf(fecha),DaysInMonth(fecha));
  showmessage(datetostr(fecha) +#13 +DateToStr(finicio) + #13+ datetostr(ffinal))
end;

Debes incluir la unidad dateutils.

Espero te sea util

Saludos