DayOfWeek

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

DayOfWeek(Date): Integer
Date: TDateTime	Дата и время
Функция возвращает порядковый номер дня недели

Пример вызова:

{Pascal Script}
Var
     s: String;

Begin
     case DayOfWeek(Date) of
       1: s := 'Выходной!';
       2: s := 'Тяжелый день';
       3: s := 'Серые рабочие будни';
       4: s := 'Серые рабочие будни';
       5: s := 'Серые рабочие будни';
       6: s := 'Пятница!!!';
       7: s := 'Выходной!';
     end;
     AddToDebugLog('Текущий день это "' + s + '".');
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.