ABADev blog

  function FileTimeToElapsedTime(FileTime: TFileTime): TDateTime;
  var
    SystemTime, LocalSystemTime: TSystemTime;
    TZ: TTimeZoneInformation;
  begin
    Result := 0;
    try
      if FileTimeToSystemTime(FileTime, SystemTime) then
      begin
        if (GetTimeZoneInformation(TZ) <> 0) then
          if SystemTimeToTzSpecificLocalTime(@TZ, SystemTime, LocalSystemTime) then
            Result := SystemTimeToDateTime(LocalSystemTime);
      end;
    except
    end
  end;