procedure tform1.button2click( sender: tobject );
var
  del, val, max: longint;
begin
  memo1.clear;
  val := spinedit1.value;
  max := val;
  del := 2;
  while ( del <= max ) do
  begin
    if ( val mod del = 0 ) then
    begin
      memo1.lines.add( inttostr( del ) );
      if ( val div del > del ) then
      begin
        memo1.lines.add( inttostr( val div del ) );
        max := val div del - 1;
      end;
    end;
    del += 1;
  end;
end;