После поставување на два едит со имиња edit1 и edit2 (чиј текст треба да се избрише), label1 и button1 на двоен  клик на button1 се впишува следниот код 

  procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
  begin
if edit1.Text='' then
edit1.Text:='0';
if edit2.Text='' then
edit2.Text:='0';
k:=strtoint(edit1.Text)+strtoint(edit2.text);
label1.Caption:=inttostr(k); end;