Sumar con Checkbox

[tazzmk]

hola, se me ocurrio sumar usando checkbox

el formulario se usa
edit1
CheckBox1
CheckBox2
CheckBox3
Button1

• El boton es el que procesado todo

Al edit1 se le pone un numero y si se decea se le agrega otro numero el cual se le sumara al edit1

ejemplo:
se ingresa "2" al edit1, luego se marca el checkbox1, cuyo valor interno es de "2" al ejecutar el boton el resultado es de "4"

ejemplo 2:
se ingresa "5" al edit1, se marca los 3 checkbox cuyo valor del primer checbox es de "2", el segundo checkbox vale 4 y el tercer checkbox vale 8

entonces el resultado sera "19"

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
nro1,nro2,nro3,nro4,resultado:word;
begin
nro1:=strtoint(edit1.text);
nro2:=strtoint(checkbox1.text);
nro3:=strtoint(checkbox2.text);
nro4:=strtoint(checkbox3.text);
resultado:=nro1+nro2+nro3+nro4;

if CheckBox1.Cheked Then
2+edit1
Else if CheckBox2.Cheked Then
4+edit1
Else if CheckBox3.Cheked Then
8+edit1

mostrar.caption:='El resultado es = '+inttostr(resultado);
end;

Saludos