var
  myDate : TDateTime;
  myYear, myMonth, myDay : Word;
  myHour, myMin, mySec, myMilli : Word;

begin
  // Установка переменной myDate в значение декабря 2000
  myDate := StrToDateTime('29/12/2000 12:45:12.34');

  // Теперь добавляем месяц к этому значению
  myDate := IncMonth(myDate);

  // И позволяем нам увидеть, что мы получили
  DecodeDateTime(myDate, myYear, myMonth, myDay,
                 myHour, myMin, mySec, myMilli);
  ShowMessage('myDate сейчас = '+DateToStr(myDate));
  ShowMessage('myHour     = '+IntToStr(myHour));
  ShowMessage('myMin      = '+IntToStr(myMin));
  ShowMessage('mySec      = '+IntToStr(mySec));
  ShowMessage('myMilli    = '+IntToStr(myMilli));
  ShowMessage('myDay      = '+IntToStr(myDay));
  ShowMessage('myMonth    = '+IntToStr(myMonth));
  ShowMessage('myYear     = '+IntToStr(myYear));
end;