{Récupère le N° du jour de la semaine} procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := IntToStr(DayOfWeek(Now)); end;