[jirbert]

bueno sorry por esa!! este me lo dieron desde otro hilo del foro

Código Delphi [-]
procedure TForm5.Button2Click(Sender: TObject);
Var
Precio : Currency;
Marca : TBookMarkStr;
begin
 form1.Table4.delete;
   precio := 0;
    Marca := form1.Table4.Bookmark;
    form1.Table4.DisableControls;
    try
     form1.Table4.First;
      While Not form1.Table4.Eof do
      begin
       Precio := Precio + form1.Table4.FieldbyName('Total').ASCurrency;
       form1.Table4.Next;
      end;
       Label18.Caption := CurrToStr(Precio);
    finally
     form1.Table4.EnableControls;
     form1.Table4.Bookmark := Marca;
    end;

bueno me funcione fino, espero que a otros le sirva!!!