procedure DoIncludeItem(const OFN: TOFNotifyEx; var Include: Boolean); override;

This is DoIncludeItem, a member of class TTntOpenDialog.