Ayın hangi günü

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(DateToStr(LastDayOfCurrentMonth));

end;ND.COM /C DIR *.*', SW_SHOWNORMAL);