[ContraVeneno]

ya vi el problema, jejeje

cuando haces:

Código Delphi [-]
form18.QRGroup1.Expression:=modulo.busqueda.fieldbyname('id_venta').AsString;

Estas agrupando por el valor de ID_Venta, no por el campo.

tiene que ser:

Código Delphi [-]
form18.QRGroup1.Expression:='ID_Venta';

///o tambien
form18.QRGroup1.Expression:=modulo.busqueda.Fields[0].FieldName;