Проблемы с case of

[Agent2811]

Здравствуйте! подскажите пож-та что с кодом не так?

case i of
1:if ComboBox1.items.Strings[i]='10 дней' then DateTimePicker3.Date:=DateTimePicker3.Date + 10 ;
2:if ComboBox1.items.Strings[i]='1 месяц' then DateTimePicker3.Date := EncodeDate(Y , M+1, D);
3:if ComboBox1.items.Strings[i]='2 месяц' then DateTimePicker3.Date := EncodeDate(Y , M+2, D);
4:if ComboBox1.items.Strings[i]='3 месяц' then DateTimePicker3.Date := EncodeDate(Y , M+3, D);
5:if ComboBox1.items.Strings[i]='4 месяц' then DateTimePicker3.Date := EncodeDate(Y , M+4, D);
6:if ComboBox1.items.Strings[i]='5 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+5, D);
7:if ComboBox1.items.Strings[i]='6 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+6, D);
8:if ComboBox1.items.Strings[i]='7 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+7, D);
9:if ComboBox1.items.Strings[i]='8 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+8, D);
10:if ComboBox1.items.Strings[i]='9 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+9, D);
11:if ComboBox1.items.Strings[i]='10 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+10, D);
12:if ComboBox1.items.Strings[i]='11 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+11, D);
13:if ComboBox1.items.Strings[i]='12 месяцев' then DateTimePicker3.Date := EncodeDate(Y , M+12, D-1);
end; end;

[TorrentTor]

От чего последний "end" и вообще что необходимо-то? И почему с ним что-то не так?

[Yurk@]

как-то так

if ComboBox1.ItemIndex = 0 then // '10 дней'
  DateTimePicker3.Date:=DateTimePicker3.Date + 10
else // 1-12 месяцев
  DateTimePicker3.Date := IncMonth(DateTimePicker3.Date, ComboBox1.ItemIndex);

[Sciv]

Здравствуйте! подскажите пож-та что с кодом не так?

Все не так. Смотрите подсказку от Yurk@

[Agent2811]

Сообщение от Yurk@

как-то так

if ComboBox1.ItemIndex = 0 then // '10 дней'
  DateTimePicker3.Date:=DateTimePicker3.Date + 10
else // 1-12 месяцев
  DateTimePicker3.Date := IncMonth(DateTimePicker3.Date, ComboBox1.ItemIndex);

спасибо большое)

[Agent2811]

Сообщение от Yurk@

как-то так

if ComboBox1.ItemIndex = 0 then // '10 дней'
  DateTimePicker3.Date:=DateTimePicker3.Date + 10
else // 1-12 месяцев
  DateTimePicker3.Date := IncMonth(DateTimePicker3.Date, ComboBox1.ItemIndex);

я сейчас попробовала, почему то тоже не работает(