Převod formátu TFileTime na formát TDateTime

Jeden ze čtenářů mě nedávno požádal o radu, zda nevím jak převést formát TFileTime na formát TDateTime. Následující funkce FileTime2DateTime to tedy dokáže. 

function TJPFile.FileTime2DateTime(aFileTime: TFileTime): TDateTime;
 var
  aSystemTime : TSystemTime;
begin
  FileTimeToLocalFileTime(aFileTime,aFileTime);
  FileTimeToSystemTime(aFileTime,aSystemTime);
  Result := SystemTimeToDateTime(aSystemTime);
end;

 S formátem TDatetime se již dají dělat běžné operace, na které jste zvyklí.