procedure TForm1.Button1Click(Sender: TObject);
var
  lrFind : TWin32FindData;
  liFTime : TFileTime;
  liSTime : TSystemTime;
begin
  if Edit1.text <> '' then
  begin
     FindFirstFile( PChar( Edit1.Text ), lrFind );
     liFTime := lrFind.ftLastAccessTime;
     FileTimeToSystemTime( liFTime , liSTime );
   
     Label1.Caption := 'Last Access - ' + IntToStr( liSTime.wDay ) + '.' +
                          IntToStr( liSTime.wMonth ) + '.' + IntToStr( liSTime.wYear );
  end;
end;