ich würde den einzelnen Checkboxen das gleiche OnClick zuweisen und darin einfach zählen wieviel checkboxen aktiviert sind
Delphi-Quellcode:
procedure TForm1.CheckBox1Click(Sender: TObject);
var LKurse: Integer;
begin
LKurse := 0;
if Checkbox1.Checked then inc(LKurse);
if Checkbox2.Checked then inc(LKurse);
Edit1.Text := inttostr(LKurse);
end;