Вычисление дней А что то не так :)

Вроде додумался как сделать все чтоб считало дни но вот беда когда выставляешь обратно значение combobox на NULL то ругаеться на эту строчку я ее выделил жирным:
var
  mm,dd,yy,vyear:integer;
procedure Form1_ComboBox1_OnChange (Sender: string);
begin
  getdays;
end;
procedure Form1_DateTimePicker1_OnChange (Sender: string);
begin
  getdays;
end;
procedure getdays;
begin
  decodedate(form1.datetimepicker1.date,yy,mm,dd);
  vdays := dd + strtoint(form1.combobox1.text);
form1.DateTimePicker2.datetime := encodedate(vdays,mm,dd);
  form1.label3.caption := 'BASE DATE + ' + form1.combobox1.Text + ' Years';
end;
begin
end.

в программе пишет "" is not a valid integer value

Друг спасибо я все таки что то неправильно опять делаю
Я прикрепил проет помоги помогите пожалуйста написать скрипт чтобы при нажатии на комбобох указываешь дни и он автоматически считает, а то у меня считает но когда уходит за другой месяц ошибку выдает