procedure TForm1.Edit1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('select sum(Cena) from gfizio;'); Query1.Open; Edit1.Text:=Query1.Fields[0].AsString; end;