brauche schnellstmöglich hilfe mit zahlensystem

[whopper]

also habe schon von ein paar schlauen köpfen hier im forum den folgenden Quelltext gekriegt um oktal in dezimalzahlen umzuwandeln.

Delphi-Quellcode:

begin
        iRes := 0;
        for iFor := 1 to Length(edit1.text) do
        begin
        iRes := iRes * 8 +StrToInt(Copy(edit1.text, iFor, 1));
        end;
  edit2.text := inttostr(iRes);
        end;

jetzt brauch ich den ganz schnell so erweitert, dass er hexadezimalzahlen umwandelt in dezimal.
wäre echt toll wenn das einer schnell hinkriegt!

vielen dank

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]