{Récupère le nom du jour de la semaine : Ex. Lundi ...} procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := LongDayNames[DayOfWeek(Now)]; end;