[icWasya]

Во первых

Код:

if ComboBox1.ItemIndex = 0 then ..
else
if ComboBox1.ItemIndex = 1 then ..

Ну и если к декабрю прибавить 11, то EncodeDate вылетит с ошибкой.

Нужно использовать функции типа IncMonth