Вывести все 3х значные числа сумма которых равна натуральному числу Delphi

Процедура обработки нажатия на кнопку:
procedure TForm1.Button1Click(Sender: TObject);
var sum,n,i:integer;
s,s1:string;
begin
n:=StrToInt(Edit1.Text);
sum:=0;
For i:=100 to 999 do
begin
sum:=0;
s1:=IntToStr(i);
sum:=sum+StrToInt(s1[1])+StrToInt(s1[2])+StrToInt(s1[3]);
If sum=n then
s:=s+IntToStr(i)+’, ‘;
end;
ShowMessage(s);
end;

создаем цикл по всем трехзначным числам:
For i:=100 to 999 do

конвертируем целое число в текст:
s1:=IntToStr(i);

Считаем суммы всех разрядов числа:
sum:=sum+StrToInt(s1[1])+StrToInt(s1[2])+StrToInt(s1[3]);

Если сумма удовлетворяет нашему натуральному числу то сохраняем результат:

If sum=n then
s:=s+IntToStr(i)+’, ‘;

Функция ShowMessage выводит результат.