The following example demonstrates retrieving the last date and time a given file was accessed. Note: Not all file systems support the last access time. Example:

procedure TForm .Button Click(Sender: TObject);
var
  SearchRec : TSearchRec;
  Success : integer;
  DT : TFileTime;
  ST : TSystemTime;
begin
  Success := SysUtils.FindFirst('C:\autoexec.bat',
                                faAnyFile,
                                SearchRec);
 if (Success = 0) and
      (( SearchRec.FindData.ftLastAccessTime.dwLowDateTime <> 0)
      or ( SearchRec.FindData.ftLastAccessTime.dwHighDateTime <> 0))
 then
  begin
    FileTimeToLocalFileTime(SearchRec.FindData.ftLastAccessTime,DT);
      FileTimeToSystemTime(DT,ST);
    Memo .Lines.Clear;
    Memo .Lines.Add('AutoExec.Bat was last accessed at:');
    Memo .Lines.Add('Year := ' + IntToStr(st.wYear));
    Memo .Lines.Add('Month := ' + IntToStr(st.wMonth));
    Memo .Lines.Add('DayOfWeek := ' + IntToStr(st.wDayOfWeek));
    Memo .Lines.Add('Day := ' + IntToStr(st.wDay));
    Memo .Lines.Add('Hour := ' + IntToStr(st.wHour));
    Memo .Lines.Add('Minute := ' + IntToStr(st.wMinute));
    Memo .Lines.Add('Second := ' + IntToStr(st.wSecond));
    Memo .Lines.Add('Milliseconds := ' + IntToStr(st.wMilliseconds));
  end;
  SysUtils.FindClose(SearchRec);
end;