procedure CustomKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

This is CustomKeyDown, a member of class TTntMessageForm.