Sumas de campos en SQL

[noe]

Tengo el siguiente problema trato de enviar la suma de un campo a un Edit pero me manda el siguiente error:

"When GROUP BY exist, every simple fiels in projectors must be in GROUP BY"

El codigo que tengo es el siguiente:

Código Delphi [-]
   procedure TFrm_VentasDia.BBtn_MostrarClick(Sender: TObject);
   var
    VarFecha:string;
    auxiliar:Real;
   begin
     VarFecha:=UPPERCASE(inputbox('Consulta por fecha de venta','Introduzca la fecha
 de venta',''));
     Query1.Close;
     Query1.SQL.Clear;
   Query1.SQL.Add('select Consecutivo, CveCliente, NombreCompleto, Codigo, Grupo,
 Marca, Talla,Modelo,Descripcion,Precio,FechaVenta, sum(precio) as total');
     Query1.SQL.Add('from Ventas.db');
     Query1.SQL.Add('Where FechaVenta =:Fecha');
     Query1.sql.Add('Order by Marca,Talla');
     Query1.ParamByName('Fecha').asdatetime:=strtodate(VarFecha);
     Query1.Open;
     auxiliar :=Query1.fieldbyname('total').AsFloat;
     Edit1.Text:=floattostr(auxiliar);
   end;

Gracias por la ayuda:

[[eduarcol]]

y donde esta la clausula group by yo no la veo en ese codigo...

[marcoszorrilla]

Efectivamente o no está la claúsula o se le olvido ponerla, pero el problema es que todos los campos que no entren en funciones como Sum, Max, Min... tienen que estar afectados por la claúsula Group By.

Un Saludo.