Membedakan Angka Ganjil dan Genap Delphi7

Kali ini saya akan membuat program membedakan Angka Ganjil dan Genap
dan tanpa banyak bicara saya akan langsung postingkan kodingnya...
Taaaa Daaaaaa....!!!
hasilnya akan seperti dibawah ini., sederhana memang... tapii buat pelajar delphi7...
dapat memberikan pelajaran tambahan...
Asseeekkkkk












Ini koding sobat...
.langsung saJa ea... selamat mencoba!

procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
a := strtoint(edit1.Text);
if a mod 2 =0 then
    begin
      label1.Caption:= 'Bilangan Genap';
      end
     else
     label1.Caption:= 'Bilangan Ganjil';
     Edit1.SetFocus;
  end;
end.