тогда в описание emun'а добавь значения, ну что бы "прибить" их:
Код:
type
TSelectedDayOfWeek = (sdwMonday = 1, sdwTuesday = 2, sdwWenesday = 3, sdwThirsday = 4, sdwFriday = 5, sdwSaturday = 6, sdwSunday = 7);
Тогда:
1. Можно через Ord получить значение по типу
2. Совпадает с функцией DayOfWeek (или DayOfTheWeek - проверь по доке) из стандартного модуля DateUtils. Кстати, там таки куча полезных функций есть.
Ну получит по текущему дню дату ближайшего из списка - вообше простейшая арифметика. типа
Код:
NextDate := Now + (MinSelectedGreaterThen(DaytOfWeek(Now)) - DaytOfWeek(Now));
Вроде ничего не напутал...