Program Delphi Untuk Mencari Bilangan Genap Dalam Suatu Selang

procedure TBilGenap.Button1Click(Sender: TObject);
var
  a,b : Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrTOInt(Edit2.Text);
  while a <= b do

  begin 
  if a mod 2 = 0 then ListBox1.Items.Add(IntToStr(a));
  a:=a+1;
  end;
end;

procedure TBilGenap.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
listbox1.items.Clear;
end;

procedure TBilGenap.Button3Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilGenap.Hide;
end;

procedure TBilGenap.Panel9Click(Sender: TObject);
var
  a,b : Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrTOInt(Edit2.Text);
  while a <= b do

  begin 
  if a mod 2 = 0 then ListBox1.Items.Add(IntToStr(a));
  a:=a+1;
  end;

end;

procedure TBilGenap.Panel10Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
listbox1.items.Clear;

end;

procedure TBilGenap.Panel11Click(Sender: TObject);
begin
AplikasiBilanganBulat.Show;
BilGenap.Hide;

end;

end.