cambio horario saber dia de la semana saber numero del mes

uses DateUtils;

(...)

//******************************************
procedure TForm1.Button1Click(Sender: TObject);
var
diadelasemana: integer;
numerodemes: integer;
begin


diadelasemana:=DayOfWeek(now);
numerodemes:=MonthOfTheYear(now);


if ((diadelasemana=1)) then
begin

ShowMessage('domingo: ' + inttostr(numerodemes));

end;


end;




.