Mengenauswertung - Problem!

[omata]

Delphi-Quellcode:

if         (cb1 in iMenge) 
   and     (cb2 in iMenge) 
   and     (cb3 in iMenge) 
   and not (cb4 in iMenge) 
   and not (cb5 in iMenge) 
   and not (cb6 in iMenge) then 
begin
  showmessage{usw.}
end;