var
  myDate : TDateTime;
  myHour, myMin, mySec, myMilli : Word;

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

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

  // И позволяем нам увидеть то, что мы получили
  DecodeTime(myDate, myHour, myMin, mySec, myMilli);
  ShowMessage('Time сейчас = '+TimeToStr(myDate));
  ShowMessage('Hour     = '+IntToStr(myHour));
  ShowMessage('Minute   = '+IntToStr(myMin));
  ShowMessage('Second   = '+IntToStr(mySec));
  ShowMessage('MilliSec = '+IntToStr(myMilli));
end;