sumar la columna de un dbgrid

[pharaonhx]

tengo un probleminta sumando la columna de dbgrid este grid esta realcionado con un maestro detalle y quiero solo sumar los detalles de un registro del maestro y con el procedimiento siguiente solo me suma la columna completa de la tabla


dm1.QGeneral.Active := False;
dm1.QGeneral.SQL.Text := 'Select Sum(valor) as Subtotal from Detalle where Factura_ID = Factura_ID';
dm1.QGeneral.ExecSQL;
dm1.QGeneral.Active := True;
dm1.TDetallesTotal.Value := dm1.QGeneralSubtotal.Value;
y asi no me funciona me tira valores que no son alguien que me ede una ayudita