Суммирование столбца в Delphi

  ADOQuery1.Active := false;                 
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT SUM(цена) FROM список ');
  ADOQuery1.Active := True;
  EditSum.Text := ADOQuery1.Fields[0].AsString;

procedure TForm1.Button1Click(Sender: TObject);
var c,s:Integer;
begin
ADOTable1.First;
s:=0;
While not ADOTable1.Eof do
begin
c:=ADOTable1['öåíà'];
s:=c+s;
ADOTable1.Next;
end;
Label1.Caption:=IntToStr(s);
end;

procedure TForm4.Label3Click(Sender: TObject);
var s: real;
    n: integer;
    bm : TBookmark;  // Переменой типа закладка
begin
   bm := ADOQuery1.GetBookmark;   // запомним закладку
   ADOQuery1.DisableControls;     // отклуючим контрол
//--------------------------------------------------------------------//
  s:=0;
 ADOQuery1.First;
 s:=0;
  for n:=1 to ADOQuery1.RecordCount do begin
    s := s + ADOQuery1.FieldByName('ЗП_Мастер').AsFloat;
    ADOQuery1.Next;
    Label3.Caption :=FloatToStr(s);
//---------------------------------------------------------------------//
end;
    if  ADOQuery1.BookmarkValid(bm) then  ADOQuery1.GotoBookmark(bm); // возврашаем на закладку
    if    ADOQuery1.BookmarkValid(bm) then  ADOQuery1.FreeBookmark(bm); // освобождаем закладки
    ADOQuery1.EnableControls; // после освобождения вклуючти контрол
end;