[BoRoV]

Вместо ShowMessage напиши:

Код:

  Edit1.Text := 'Сумма = ' + n;