Program Delphi Untuk Mencari Kelipatan Bilangan dalam Suatu Selang

procedure TKelipatanK.Button1Click(Sender: TObject);
var
  a,b,k,i : integer;
begin
  a:=strtoint(edit2.Text);
  b:=strtoint(edit3.Text);
  k:=strtoint(edit1.Text);
  for i:=a to b do
  if i mod k = 0 then
  begin
     listbox1.Items.add(inttostr(i));

end;
    end;
procedure TKelipatanK.Button2Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.text:=' ';
edit3.text:=' ';
listbox1.items.clear;
end;

procedure TKelipatanK.Timer1Timer(Sender: TObject);
begin
label5.Left:=label5.Left-30;
 if  label5.Left<=-300 then
 label5.Left := 100;
end;

procedure TKelipatanK.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
KelipatanK.Hide;
end;

end.