Модуль: SysUtils

type TDateTime = type Double;

type TTimeStamp = record
   Time: Integer;     // Число миллисекунд прошедших с полуночи
   Date: Integer;     // Количество дней прошедших с 1 января 0001г
   end;

Описание
Функция преобразовывает значение типа TTimeStamp в соответствующее значение типа TDateTime.