[Delphi] ИЗ четырнадцатеричной системе счисления в десятеричной системе счисления

[Safok]

Дана строка, представляющая собой запись числа в четырнадцатеричной системе счисления. Преобразовать ее в строку, представляющую собой запись числа в десятеричной системе счисления.

Помогите, зарание спасибо!

[min@y™]

глянь модуль вот этот. там функция numb2dec().

function Numb2Dec(S: string; B: Byte): Longint;
var
  I, P: Longint;
begin
  I := Length(S);
  Result := 0;
  S := UpperCase(S);
  P := 1;
  while (I >= 1) do begin
    if S[I] > '@' then Result := Result + (Ord(S[I]) - 55) * P
    else Result := Result + (Ord(S[I]) - 48) * P;
    Dec(I);
    P := P * B;
  end;
end;

Description
Пpеобpазует число по основанию B в стpоке S в целое десятичное.