Dual Dezimal

[MasterTobi]

hey @ all
wie kann ich eine DUAL Zahl in eine DEZIMAL zahl umwandeln?

Delphi-Quellcode:

 var a,b: Integer;
 dual: String;
begin
  dual := '';
  a:= StrToInt(edit1.Text);
  while a <> 0 do
  begin
    b:= a MOD 2; //ERST den Rest berechnen
    a:= a DIV 2; //DANN a halbieren
    dual:= IntToStr(b) + dual;
  end;
  edit2.Text := dual;
end;

das is der code für dezimal in dual
des müsst ja dann auch zurück gehen odeR?