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