Zahlenkonvertierung (Was passiert bei dieser Schleife?)

[KermitFrosch]

Oh, sorry

Delphi-Quellcode:

var
  i,Dezimalzahl : LongInt;
  sys:byte;
  dual:String;
const zeichen = '0123456789ABCDEF';
 begin
  dual:=(edtdual.Text);
  sys:=2;
  Dezimalzahl := 0;
  if sys in [2..16] then 
   begin 
    for i := 1 to length(dual) do
      dezimalzahl := Dezimalzahl*sys + pos(UpperCase(dual[i]),zeichen) - 1;
  end;
  edtdezimal.Text := IntToStr(Dezimalzahl);