procedure DefaultHandler(var Message); override;

This is DefaultHandler, a member of class TTntForm.