[M.A.D.M.A.N.]

В дельфе есть переменная даты времени, по типу Cardinal
т.е до точки идет дата, после точки время.
Перевести можено с помощью TDateTime(Value);

Код:

var DateTime:TDateTime;
begin
  DateTime:=TDateTime(Value);
end;

не знаю поможет тебе это или нет?