Изменение даты в StringGrid

//объединяем год, месяц, день в переменную даты
Date1:=EncodeDate(StrToInt(ComboYear.Text),ComboMonth.ItemIndex,StrToInt(ComboDay.Text));
//меняем стандартные разделители
DateSeparator := ' ';//меняем разделитель внутри даты
ShortDateFormat := 'd mmm yyyy';//меняем формат ввода вывода даты
//Вот так дата будет выведена корректно, а значит не будет ошибки считывания
Form1.StringGrid2.Cells[2, 1]:=DateToStr(Date1);

//нет смысла дату считывать из грида, если мы можем сразу получить день, месяц и год из комбобоксов
Day:=StrToInt(ComboDay.Text);
Month:=ComboMonth.ItemIndex;
Year:=StrToInt(ComboYear.text);
//увеличиваем количество месяцев на период и пересчитываем год
Year_new:=Year;
Month_new:=Month+srok;      {***}
mnog:=Month_new div 12;//результат целочисленного деления месяца на 12, нужно если срок вклада 24 месяца
if Month_new>12 then
Begin
Year_new:=Year_new+mnog;
Month_new:=Month_new-12*mnog;
end;
//Меняем день
Day_new:=day+1;
//Проверяем, что мы не превысили количество дней в месяце
If Day_new>DaysInAMonth(Year_new,Month_new)  then
   Begin
     Day_new:=Day_new-DaysInAMonth(Year_new,Month_new);
     Month_new:=Month_new+1;
     If Month_new>12 then
       begin
        Month_new:=Month_new-12;
        Year_new:=Year_new+1;
       end;
   end;
 
//объединяем год, месяц и день в переменную формата TDateTime
Date2:=EncodeDate(Year_new,Month_new,Day_new);
//ну и выводим срок окончания в таблицу
Form1.StringGrid2.Cells[4, 1]:=DateToStr(Date2);