client side : var s : wideString; begin s := 'SELECT kecamatan '; query.close; query.sql.text := 'SELECT NAMA FROM KELURAHAN'; query.open; with query do begin first; while not eof do begin if eof = false then s := s + ' SUM(CASE WHEN kelurahan = '+ quotedStr(fields.AsString) + ' THEN 1 ELSE 0 END...