Delphi Function that takes Integer and returns a not-so-easily decoded Integer

Question

Can anyone share what are some common Delphi examples of a function that takes a number and returns a number that is not so obvious?

For example :

func