Hallo,
geht das nicht?
Delphi-Quellcode:
ZQueryICD.SQL.Text:= 'select *,case GRUPPE when GRUPPE > 0 then 1 else 0 end As Gruppe2 from ICD order by GRUPPE';
ZQueryICD.Open;
Da Du schon eine Spalte Gruppe hast, musst Du der zweiten Spalte einen (etwas) anderen Namen geben.