var Total : Currency; Marca : TBookMark; begin
Total := 0;
Marca := adoquery1.GetBookmark(); adoquery1.DisableControls; adoquery1.First; While Not adoquery1.Eof do
begin
Total := Total + adoquery1.FieldbyName('cuenta').ASCurrency;
adoquery1.Next;
end;
adoquery1.EnableControls; adoquery1.GotoBookmark(Marca); adoquery1.FreeBookMark(Marca);
label3.Caption:=(CurrToStr(Total ));