function FileLastAccesss(fileName: string): TDateTime;
var
  ftCreate: FILETIME;
  ftAccess: FILETIME;
  ftWrite : FILETIME;
  stUTC   : SYSTEMTIME;
  stLocal : SYSTEMTIME;
  hFile   : Cardinal;
begin
  hFile:=CreateFile (PAnsiChar(fileName), GENERIC_READ,  0 ,  0 , OPEN_EXISTING,  0 ,  0 );
  GetFileTime (hFile, @ftCreate, @ftAccess, @ftWrite);
  FileTimeToSystemTime (ftAccess, stUTC);
  SystemTimeToTzSpecificLocalTime (nil, stUTC, stLocal);
  result := EncodeDateTime(stLocal.wYear,
                 stLocal.wMonth,
                 stLocal.wDay,
                 stLocal.wHour,
                 stLocal.wMinute,
                 stLocal.wSecond,
                 stLocal.wMilliseconds);
end;