procedure KeyDown(var Key: Word; Shift: TShiftState); override;

This is KeyDown, a member of class TTntDBRichEdit.