procedure THITime._var_UTCDateTime;
var   SystemTime: TSystemTime;
      DateTime:TDateTime;
begin
   GetSystemTime(SystemTime);
   SystemTime2DateTime(SystemTime, DateTime);
   dtReal(_Data, DateTime);
end;