procedure KeyPress(var Key: AnsiChar); override;

This is KeyPress, a member of class TTntDBRichEdit.