BCB6: DateTime to FileTime?

Giganews Newsgroups
Subject: BCB6: DateTime to FileTime?
Posted by:  poojo hackma (poojo.com/mail)
Date: Fri, 3 Feb 2006

On the PC, file information is collected using API:
    WIN32_FIND_DATA win32data;
    FindFirstFile(fullPath, &win32data);
    _FILETIME date1 = win32data.ftLastWriteTime;

On the Server, file information is collected using Indy:
    TIdFTPListItem* listItem = Indy->DirectoryListing->Item[int i];
    TDateTime date2 = listItem->ModifiedDate;

What is a nice way to get date1 and date2 into the same format so that they
can be compared?