Написать программу 'нахождение суммы трехзначного числа'если это число разложить на множители

Var a, b, c, S1, fin: integer;
S1 := edit1.text;
a := copy(S1,1,1);
b := copy(S1,2,1);
c := copy(S1,3,1);
fin := a + b + c;
edit2.text := fin;
На нажатие кнопки добавить код.