Delphi-Quellcode:
var checkedzaehler:integer =0;
{...}
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
if checkedzaehler => 2 then (checkedzaehler := checkedzaehler +1) else showmessage('zuviele fächer angewählt');
end;
mal ein anfängervorschlag
uses Delphi 5 Std. / TurboDelphi 2006