var
  dateTimePtr : PDateTime;
  a : TDateTime;

begin
  // Ассигнование памяти для трёх переменных даты времени
  GetMem(dateTimePtr, 3 * SizeOf(Extended));

  // Заполнение этих переменных значениями
  dateTimePtr^ := Yesterday;
  Inc(dateTimePtr);
  dateTimePtr^ := Date;
  Inc(dateTimePtr);
  dateTimePtr^ := Tomorrow;

  // Показ этих значений
  Dec(dateTimePtr, 2);
  ShowMessage('Вчера = '+DateToStr(dateTimePtr^));
  Inc(dateTimePtr);
  ShowMessage('Сегодня = '+DateToStr(dateTimePtr^));
  Inc(dateTimePtr);
  ShowMessage('Завтра = '+DateToStr(dateTimePtr^));
end;