Source code ganjil genap Delphi

procedure TForm1.Button1Click(Sender: TObject);

var

Bil:integer;

begin

Bil:=StrToInt(Edit1.Text);

if(Bil mod 2)=0 then

begin

Edit2.Text:=('Genap');

end

else

begin

Edit2.Text:=('Ganjil');

end;

end;