var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec, Days: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
dtpIni.DateTime:=EncodeDate(Year,Month,1);
dtpFin.DateTime:= dtpIni.DateTime+DaysInAMonth(Year, Month);
dtpFin.DateTime:= DecodeDate(Present, Year, Month, DaysInAMonth(Year, Month);