Indem du die ganzen Else weglässt und einfach die Ifs hintereinander machst.
Delphi-Quellcode:
if cgfilter.ItemChecked [2] = true then
qtelefonliste.SQL.Strings [4] := 'Datum = ' + '''' + (DateToStr(Date)) + '''' + ' and' ;
if cgfilter.ItemChecked [3] = true then
qtelefonliste.SQL.Strings [5] := 'Prioritat = "1" and' ;
if cgfilter.ItemChecked [4] = true then
qtelefonliste.SQL.Strings [6] := 'Prioritat = "2" and' ;
usw.
Da du für jeden Filter einen anderen Text hinzufügst, musst du zwangsläufig jedes einzeln abfragen.