........
     procedure _work_doTime(var _Data:TData; Index:word);
........
procedure THIDatePicker._work_doTime;
begin
  DatePicker.DateTime:=ToReal(_Data);
end;