procedure TForm1.Button1Click(Sender: TObject);

  var
  y,i,cislo :integer;
begin
   y:=0;
   cislo:=StrToInt(edit1.text);
   for i:=1 to cislo do   ;
 begin
   if cislo mod i=0 then
   begin
     Image1.Canvas.TextOut(0,y,IntToStr(i));
   end;
 end;

end;

end.