Menentukan biLangan ganjil dan genap

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
label4.Caption := '';
edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
bilangan : integer;
begin
bilangan:=StrToInt(Edit1.text);
  if (bilangan mod 2)=0 then
begin
  label4.Caption := 'GENAP';
  end
  else
begin
  label4.Caption := 'GANJIL';
  end;
  end;

end.