Pierwszy i ostatni dzien miesiaca

mam 2 komponenty DateTimePicker i mam pytanie:

jak zrobic by w DateTimePicker1 można bylo wyswietlić w jednym pierwszy dzien a w drugim ostatni dzien aktualnego lub poprzedniego miesiaca.

pozdrawiam
genius23

juz znalazlem dla katualanego miesiaca

function LastDayOfMonth(Dat: TDate): TDate;
var D, M, Y: Word;
begin
DecodeDate(IncMonth(Dat, 1), Y, M, D);
Result:= EncodeDate(Y, M, 1) - 1;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=
FormatDateTime('d-m-yyyy',LastDayOfMonth(DateTimePicker1.Date));
end;