1:

2 "hoch" (length(a)-i)					

1:

2^(length(a)-i)					

1:

i:=round(intpower(x,hochy))					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

dualzahl := tf_eingabe.text;
         for i := length(dualzahl) downto 1 do
          begin
           case dualzahl[i] of
            '1' : dezimalzahl := dezimalzahl + round(IntPower(2,(length(tf_eingabe.text)-i)));
            '0' : dezimalzahl := dezimalzahl + 0;
           end; //case
          tf_dual.Text := inttostr(dezimalzahl); 
          end// for i
        end;