Menentukan Bilangan Ganjil/Genap pada Delphi

Program kali ini akan membahas program delphi untuk menentukan apakah sebuah bilangan ganjil atau kah genap. Pada intinya hanya terletak pada perintah yg kita harus ketikkan pada BUTTON sebagai pengecek nilai.

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=strtoint(edit1.text);
if (a mod 2)=0 then
begin
(edit2.Text:=' GENAP');
end
else
begin
(edit2.Text:=' GANJIL';
end;

Dimana Edit1.Text adalah tempat untuk meletak kan angka yang akan di cek dan Edit2.Text adalah tempat untuk hasil dari pada pengecekan.