Check-Group und case of...

[Stevie]

Wie wär's denn mit

Delphi-Quellcode:

for i := 0 to Pred(cgfilter.Count) do
  if cgfilter.Checked[i] then
    case i of
      0: qTelefonliste.SQL.Strings [2] := 'BEZUGSPERSON =';
      {...}
    end;