A fájl utolsó hozzáférésének (használatának) időpontját az alábbi eljárással tudod megjeleníteni.
(A kérdéses fájl nevét (elérési útját) az AnyFile.FIL helyére kell behelyettesíteni.)

procedure TForm1.Button1Click(Sender: TObject);
var
   FileHandle : THandle;
  LocalFileTime : TFileTime;
   DosFileTime : DWORD;
   LastAccessedTime : TDateTime;
   FindData : TWin32FindData;
begin
   FileHandle := FindFirstFile('AnyFile.FIL', FindData);
   if FileHandle <> INVALID_HANDLE_VALUE then
   begin
     Windows.FindClose(Handle);
     if (FindData.dwFileAttributes and
     FILE_ATTRIBUTE_DIRECTORY) = 0 then
     begin
       FileTimeToLocalFileTime(FindData.ftLastWriteTime,LocalFileTime);
       FileTimeToDosDateTime(LocalFileTime,LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
       LastAccessedTime := FileDateToDateTime(DosFileTime);
       Label1.Caption := DateTimeToStr(LastAccessedTime);
     end;
   end;
end;