var
  myDate : TDateTime;
begin
  // Устанавливаем нашу дату на начало 2006
  myDate := EncodeDateTime(2006, 1, 1, 0, 0, 0, 0);
  ShowMessage('моя дата = '+DateTimeToStr(myDate));

  // Добавить 5000 миллисекунд к этой дате
  myDate := IncMillisecond(myDate, 5000);
  ShowMessage('моя дата + 5000 миллисекунд= '+DateTimeToStr(myDate));

  // Вычесть 2000 миллисекунд из этой даты
  myDate := IncMillisecond(myDate, -2000);
  ShowMessage('моя дата - 2000 миллисекунд= '+DateTimeToStr(myDate));
end;