Umrechner von dem einsersystem in richtige zahlen

[NewDelphiBenutzer]

Guten abend
also ich soll in der schule in delphi ein Programm machen mit Checkboxen. In dem Falle sind es 7 Stück nebeneinander. Und das ist dieses komische Zahlensystem, nur mit 1 und 0. Und diese Boxen liegen nebeneinander. Ich habe eine Variable namens Dezimalzahl eingefügt. Und wenn der Benutzer des Programmes ein Kreuz in der linken Box macht, soll dieser Zahl 128 dazu gerechnet werden. WEnn die zweite Box dann angekreuzt wird, wird +64 dann +32,+16,+8,+4,+2 und der ganz rechten +1.
Und dann soll halt wenn er alles, was er wollte angekreuzt hat und auf rechnen drückt, sollte dann diese ,,Fertige'' Zahl in ein editFeld springen. Und ich weiß nicht, wie ich das machen soll.
Und auch gut wäre, wenn sich der Wert danach wieder auf 0 stellt, damit man nochmal ausrechnen kann. Ich hoffe ihr versteht, was ich meine.
liebe grüße =)

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

  var dezimalzahl: integer;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    CB64: TCheckBox;
    CB32: TCheckBox;
    CB16: TCheckBox;
    CB8: TCheckBox;
    CB128: TCheckBox;
    CB4: TCheckBox;
    CB2: TCheckBox;
    CB1: TCheckBox;
    Edit1: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if cb128.checked=true
    then begin dezimalzahl;=dezimalzahl+128;
           if cb64.checked=true
             then begin dezimalzahl;=dezimalzahl+64 ;
                    if cb32.checked=true
                      then begin dezimalzahl;=dezimalzahl+32;
                             if cb16.checked=true
                               then begin dezimalzahl;=dezimalzahl+16;
                                      if cb8.checked=true
                                        then begin dezimalzahl;=dezimalzahl+8;
                                               if cb4.checked=true
                                                 then begin dezimalzahl;=dezimalzahl+4 ;
                                                        if cb2.checked=true
                                                          then begin dezimalzahl;=dezimalzahl+2;
                                                                 if cb1.checked=true
                                                                   then begin dezimalzahl;=dezimalzahl+1;




end;

end.