Program Delphi Untuk Menentukan Jenis Bilangan

procedure TJenisBil.Button1Click(Sender: TObject);
Var
  a,b,c,d:integer;
  hasil1,hasil2:string;
begin
  a:=strtoint(edit1.Text);
  b:=strtoint(edit2.Text);
  c:= a mod 2;
  d:= b mod 2;
  if c=0 then
  hasil1:='A Merupakan Bilangan Genap';
  if c=1 then
  hasil1:='A Merupakan Bilangan Ganjil';
  If d=0 then
  hasil2:='B Merupakan Bilangan Genap';
  if d=1 then
  hasil2:='B Merupakan Bilangan Ganjil';
  edit3.Text:=hasil1;
  edit4.Text:=hasil2;

end;

procedure TJenisBil.Button2Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.text:=' ';
edit3.text:=' ';
edit4.text:=' ';
end;