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