Error con Sql Group By

[sabueso1010]

Hola foro, tengo el siguiente codigo y me marca el error que muestro al final de este tema

Código Delphi [-]
filtro:='SELECT codigo, fecharec, facturafolio, fecha_vence, cobrarcodigo, cobrarnombre, moneda, sum(total), sum(abonos), sum(saldo), total, abonos, saldo, estado from '+#34+qtabla+#34+' where estado = '+quotedstr('FACTURADO');

if rg3.itemindex=1 then filtro:=filtro+' and cobrarcodigo  = '+#34+edit1.text+#34;
if rg3.itemindex=2 then filtro:=filtro+' and cobrarcodigo  = '+#34+edit1.text+#34+' and moneda = "PESOS" ';
if rg3.itemindex=3 then filtro:=filtro+' and cobrarcodigo  = '+#34+edit1.text+#34+' and moneda = "DOLARES" ';
filtro:=filtro+' Group by facturafolio ';

with data.qfacturas do begin
  close;
  SQL.Clear;
  SQL.Add(filtro);
  open;
end;

Error mostrado en tiempo de ejecucion
class edbenginneerror with message " when GROUP BY exists,
every simple field in projectors must be in GROUP BY."