Te quedaria algo asi como esto:
Código Delphi
[-]function TfProductos.SumarDBGrid :Currency;
Var
Suma: Double;
Cantidad, Costo: TField;
Marca : TBookmark;
begin
Suma := 0;
with Query1 do begin
Marca := Bookmark;
DisableControls;
Cantidad := FieldByName('cantidad');
Costo := FieldByName('costo');
First;
while Not EoF do begin
Suma := Suma + (Costo.AsFloat*Cantidad.AsFloat);
Next;
end;
enableControls;
Bookmark := Marca;
Result := Suma;
end;
end;