[Drozh]

Так я понимаю

Код:

function SumDel(Num: Integer): Integer;
var
 Sum, i: Integer;
begin
 Sum := 1;
  for i := 2 to Num-1 do
   if Num mod i = 0 then
    Inc(Sum, i);
 Result := Sum;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
 for i := 2 to 500 do
  if i = SumDel(i) then
   Memo1.Lines.Add(IntToStr(i))
end;