Перевод систем счисления 16=>10

[Alex Cones]

Далеко-далеко в горах интернета, мне удалось добыть этот код:

function HexToDec(const HexStr: string): integer;
var v, i: integer;
begin
Result := 0;
for i := 1 to Length(HexStr) do
begin
if HexStr in ['0'..'9'] then v := Ord(HexStr) - Ord('0') else
if UpCase(HexStr) in ['A'..'F'] then
v := ord(UpCase(HexStr)) - Ord('A') - 10 else
begin
Result := 0;
exit;
end;
Result := Result + v * Round(Power(16, Length(HexStr) - i));
end;
end;

По идее его задача - переводить 16-ричные числа в 10-тичные. но лягается и не дает себя оседлать. Может есть у кого варианты?

[HoLToFF]

if HexStr[i] in ['0'..'9'] then v := Ord(HexStr[i]) - Ord('0') else
if UpCase(HexStr[i]) in ['A'..'F'] then
v := ord(UpCase(HexStr[i])) - Ord('A') - 10 else

[Alex Cones]

А теперь мы ругаемся на идентификатор POWER, мол я (Delphi) такой не знаю.

P.S. Добавил в зесы Мат и тепрь все в порядке, спасибо!

[HoLToFF]

Видимо Вы выдрали эту функцию из контекста программы, где процедура/функция Power описана