Sumar con Checkbox

[tazzmk]

hola, eh provado de distintas forma el checkbox pero no me funciona

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,resultado:integer;
begin
n1:=strtoint(edit1.text);
n2:=strtoint(CheckBox1.text);
n2:=2;
//para el primer checkbox
if n2.Checked Then
Begin n2+edit1 end
resultado:=n1+n2;
//muestra el resultado
mostrar.caption:='El resultado es = '+inttostr(resultado);
end;
end.

cuando el checkbox esta marcado deberia se agregarse como suma al edit.