Source position: line 0
function RorWord(
const AValue: Word
):Word;function RorWord(
const AValue: Word;
Dist: Byte
):Word;