Ayın Hangi Günü

procedure TForm1.Button1Click(Sender: TObject);
Begin
ShowMessage(DateToStr(LastDayOfCurrentMonth));
end;