Подсчет сумы в таблице на Delphi

[ayris666]

Пожалуйста помогите найти ошибку в коде.
На форме есть таблица с колонками Цена и Количество. Нужно чтобы при нажатии на кнопку Цена умножалась на Количество и все значения складовались( получить сумарную цену всех товаров таблицы). Когда значения добавляются в таблицу - всё работает, но если значение из таблицы удалить - сумарная цена не уменьшается. может она просто не пересчитывается заново? Никак не пойму в чём ошибка.
Вот процедура подсчёта:

procedure TForm4.Panel2Click(Sender: TObject);
var
 i:integer;

begin
s:=0;
label1.Caption:='';
adotable1.Active:=false;
adotable1.Active:=true;
 ADOQuery1.First;
 for i:=1 to ADOQuery1.RecordCount do
 begin
 s:=s+StrTofloat(ADOQuery1.FieldByName('Цена').asString)*StrTofloat(ADOQuery1.FieldByName('Количество').asString);
 ADOQuery1.Next;
 ADOQuery1.Active:=true;
  end;
label1.caption:='К оплате: '+floattostr(s);

end;




А это процедура удаления выделеной записи. После нее подсчёт работает не правильно:
procedure TForm4.Panel4Click(Sender: TObject);
begin
s:=0;
adotable1.Delete;
 label1.Caption:='';
 adotable1.Active:=false;
 adotable1.Active:=true;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

begin
s:=0;
adotable1.Delete;
label1.Caption:='';
adotable1.Active:=false;
adoquery1.Active:=true;
end;

[ayris666]

Не помогает. всё также...

[ayris666]

помогите пожалуйста!!!!!!!!! очень нужно. диплом(

[Serge_Bliznykov]

при подсчёте записей Вы используете запрос.
Но не обновляете его!!

procedure TForm4.Panel2Click(Sender: TObject);
var
 i:integer;

begin
s:=0;
label1.Caption:='';
 ADOQuery1.Close;
 ADOQuery1.Open; 
ADOQuery1.First;
 for i:=1 to ADOQuery1.RecordCount do
 begin
 s:=s+StrTofloat(ADOQuery1.FieldByName('Цена').asString)*StrTofloat(ADOQuery1.FieldByName('Количество').asString);
 ADOQuery1.Next;
 ADOQuery1.Active:=true;
  end;
label1.caption:='К оплате: '+floattostr(s);

end;

[ayris666]

спасибо, но это тоже не помогло...