[ecfisa]

Hola.

Creo que lo que te sugiere Casimiro, es algo similar a esto:

Código Delphi [-]
procedure TForm1.aceitesCalcFields(DataSet: TDataSet);
var
  Sumatoria: Double;
begin
  // Campo calculado
  with aceites do
    FieldByName('CALCULADO').AsFloat := FieldByName('PRECIO').AsFloat *
      FieldByName('CANTIDAD').AsFloat;

  // Mostrar sumatoria de: PRECIO*cantidad(columna del cpo calculado) en un Edit
  with OtroQuery do
  begin
    Close;
    SQL.Text:= 'SELECT SUM(PRECIO*CANTIDAD) AS SUMATORIA FROM TU_TABLA';
    Open;
    Sumatoria:= FieldByName('SUMATORIA').AsFloat;
    Close;
    Edit1.Text:= FloatToStr(Sumatoria);
  end;
end;

Saludos.