[icWasya]

А если объявить так, как в сишной программе

Код:

function rol(base:LongWord; shift:LongWord) :LongWord;

Может быть путаница с беззнакивыми и знаковыми числами.