[lmikle]

Напиши 100 раз (без copy-paste):
"Я всегда буду пользоваться гуглом прежде чем задавать вопросы."

Первый результат по строке FileTime to TDateTime:

Код:

uses Windows;

function FileTime2DateTime
   (FileTime: TFileTime): TDateTime;
var
   LocalFileTime: TFileTime;
   SystemTime: TSystemTime;
begin
   FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
   FileTimeToSystemTime(LocalFileTime, SystemTime) ;
   Result := SystemTimeToDateTime(SystemTime) ;
end;