Hilfe bei Schleife

[KermitFrosch]

Also, ich möchte eine Zahl aus dem Dualen Zahlensystem (sprich Nullen und Einsen) in das Dezimale Zahlensystem umwandeln... irgendwie spuckt meine schleife aba nicht das richtige ergebnis aus

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
dualzahl,faktor,i,dezimalzahl:Integer;

begin
 dezimalzahl:=0;
 faktor:=1;
 dualzahl:=strtoint(edtdual.Text);
  for i:=dualzahl downto 1 do
   dezimalzahl:=dezimalzahl+faktor*dualzahl;
   faktor:=faktor*2;
   edtdezimal.text:=Inttostr(dezimalzahl);
end;

und bitte nicht auf irgendweleche einträge verweisen, die habe ich alle schon durchstöbert und die helfen mir nicht weiter...
thx

Kermit

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]