procedure KeyPressW(var Key: WideChar);

This is KeyPressW, a member of class TTntPopupListbox.