Помощь студенту, Помогите с ошибкой не могу разобратся Опции

[FIREMAX]

Задача: Последовательность 011212201220200112… строится так: сначала 0, затем повторяется следующее действие: уже написанную часть приписывают справа с заменой 0 на 1, 1 на 2, 2 на 0, т.е.
0->01->0112->01121220->011212202001-> 0112122020010112.
Составить алгоритм, который по введённому N, (0<=N<=3 000 000 000) определяет, какое число стоит на N-ом месте в последовательности нулей ( за исключением представления числа 0).Используя эту функцию, получить двоичное 1|16-ричное 2 представления данных пяти чисел.

Помогите разобратся с ошибкой.

procedure TForm1.Button1Click(Sender: TObject);
function getprgvalue(const num:Integer):integer;
var transpcount, pow2, m, a:Integer;
function log2i(const cf:Integer):Integer;
var n:Single;
begin
n:=log2i(cf);
if frac(n)<>0 then
result:=trunc(n)+1
else
result:=trunc(n);
end;
begin
transpcount:=0;
m:=num;
while m>1 do
begin
pow2:=log2i(m);
a:=round(power(2, pow2)/2); ( Ошибка "power" )
m:=m-a;
inc(transpcount);
end;
result:=transpcount mod 3;
form1.Memo1.Lines.Add(floattostr(result));
end;