prueba a hacer lo siguiente a ver si te funciona:
1.-crea la siguiente query
Código Delphi
[-]consulta := '';
consulta := consulta + 'Select lote, articulo,Sum(kgs) kgs ' ;
consulta := consulta + 'from Ttransformaciones ';
consutla := consulta + 'Group By lote, articulo';
query.Close;
query.SQL.Clear;
query.SQL.Add(consulta);
query.Open;
2.- Crea dos campos calculados KgsEnt y RdTo donde:
2.1 kgsEnt es :
Código SQL
[-]Select Sum(kgs) from Tentrada
where lote = querylote.value
2.2 y Rdto es:
Código Delphi
[-]Rdto := querykgs.value / querykgsEnt.value;
No lo probe pero debería funcionar, aunque igual hay algún error tonto por el medio pero no creo que te de problema alguno.
Pruébalo y ya me comentarás.
Suerte