Ich seh schon, was fehlt. Schreib mal in der Typdeklaration des Formulars folgene Zeile vor das "private":
procedure RefreshCBCount(Sender: TObject);
Btw: Auch wenn das kompiliert wird, glaube ich, dass Du bei
Zitat:
if (cb1) and (cb2) and (cb3) in iMenge then showmessage('Naturwissenschaft');
falsche Ergebnisse bekommst.
Schreib das lieber mal so um:
if (cb1 in iMenge) and (cb2 in iMenge) and (cb3 in iMenge) then showmessage('Naturwissenschaft');