Вывести дату ближайшего дня недели

[garuna]

пишу нечто на подобии планировщика, где пользователю нужно выбрать дни недели. результаты выбора заношу в переменную String из 7 знаков состоящих из 1 и 0.
0 - значит день не выбран, 1 - день выбран, например: '0101010' - выбранные дни: вторник, четверг, суббота.

Подскажите, как из этой строки определить ДАТУ ближайшего выбранного дня недели? Полчаса уже парюсь, никак не могу сообразить.

[FaTaL]

Узнаёшь сегодняшний день недели DayOfWeek и сравниваешь со своей строкой.

[garuna]

Сообщение от FaTaL

Узнаёшь сегодняшний день недели DayOfWeek и сравниваешь со своей строкой.

вроде что-то получилось. ближайший выбранный день недели узнал. как теперь его дату узнать?

var
 CurrentDay, aDay, i: integer;
 const
  week = '1010100';
begin
 CurrentDay:= DayOfWeek(Date)-1;
 aDay:= CurrentDay;
 if Week[CurrentDay] = '1'
 then edt1.Text:= IntToStr(CurrentDay)
 else
 for i:= 1 to 7 do
 begin
  if aDay = 7
  then aDay:= 1
  else aDay:= aDay+1;
  if week[aDay] = '1'
  then
  begin
   edt1.Text:= IntToStr(aDay);
   Break;
  end;
 end;

[garuna]

всё, разобрался.