Определить день недели
Для определения текущего дня недели существует функция DayOfWeek. Она возвращает значение с 1 по 7. 1 – воскресенье, 7 – суббота. procedure TForm1.Button1Click(Sender: TObject);begin
case DayOfWeek(date) of
2: Form1.Caption := 'Понедельник';
3: Form1.Caption := 'Вторник';
4: Form1.Caption := 'Среда';
5: Form1.Caption := 'Четверг';
6: Form1.Caption := 'Пятница';
7: Form1.Caption := 'Суббота';
else Form1.Caption := 'Воскресенье';
end;
end;