TDateTime in FileTime (64Bit) umrechnen

// TDateTime in FileTime
void _fastcall TForm1::DateTime2FileTime(TDateTime* DateTime, LPFILETIME lpFileTime)
{
    SYSTEMTIME SystemTime;
    DateTimeToSystemTime(*DateTime,SystemTime);
    SystemTimeToFileTime(&SystemTime,lpFileTime);
}
// FileTime in TDateTime
void _fastcall TForm1::FileTime2DateTime(LPFILETIME lpFileTime, TDateTime* DateTime)
{
    SYSTEMTIME SystemTime;
    FileTimeToSystemTime(lpFileTime,&SystemTime);
    *DateTime = SystemTimeToDateTime(SystemTime);
}