Delphi - Descobrindo o último acesso de um arquivo

Function GetFileLastAccessTime(sFileName : string ) : TDateTime;
var ffd : TWin32FindData;
      dft : DWord;
       lft : TFileTime;
       h : THandle;
begin
  h := Windows.FindFirstFile(PChar(sFileName), ffd);
    if(INVALID_HANDLE_VALUE <> h)then
       begin
        Windows.FindClose( h );
        FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft );
        FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
       Result := FileDateToDateTime(dft);
     end;
end;

Para Utilizá-la:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  caption:= datetostr(GetFileLastAccessTime('C:\Teste.txt'));
end;