function LetzterZugriff(datei: string): string; 
var 
  sr: TSearchrec; 
  ft: TFileTime; 
  dt: Longword; 
begin 
  result := ''; 
  if findfirst(datei, faReadOnly + faHidden + faSysFile + faArchive, sr) <> 0 
    then exit; 
  FileTimeToLocalFiletime(sr.finddata.ftLastAccessTime, ft); 
  FileTimeToDosDateTime(ft, LongRec(dt).Hi, LongRec(dt).Lo); 
  result := FormatDateTime('dd.mm.yyyy', FileDateToDateTime(dt)); 
end; 
 
function LetzterSchreibZugriff(datei: string): string; 
var d: integer; 
begin 
  result := ''; 
  if not fileexists(datei) then exit; 
  d := fileage(datei); 
  result := FormatDateTime('dd.mm.yyyy hh.nn.ss', FileDateToDateTime(d)); 
end; 
 
// Beispielaufrufe 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  showmessage(letzterzugriff('c:\autoexec.bat')); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  showmessage(letzterschreibzugriff('c:\autoexec.bat')); 
end;