Модуль: SysUtils

Описание
Функция возвращает порядковый номер дня недели (1 ... 7) для даты, определенной параметром Date (1 - воскресенье, 2 - понедельник, ..., 7 - суббота).

Пример
var
   S: string;
begin
   case DayOfWeek(Date) of
     1: S:='выходной!';
     2: S:='тяжелый день';
     3: S:='серые рабочие будни';
     4: S:='серые рабочие будни';
     5: S:='серые рабочие будни';
     6: S:='короткий день';
     7: S:='выходной!';
   end;
   MessageDlg( 'Сегодня '+ S, mtInformation, [mbOk], 0);
end;