[Gene72]

Далаю в ADOQuery вот такой запрос.

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.text:=('select sum(Продано) from Таблица1 Group by (Дата);');
DataModule2.ADOQuery1.Open;
Form1.Edit1.text:=DataModule2.ADOQuery1.Fields[0].AsString;

DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.text:=('select sum(Продано) from Таблица1 Group by Month(Дата);');
DataModule2.ADOQuery1.Open;
Edit2.text:=DataModule2.ADOQuery1.Fields[0].AsString;
end;

Как сделать так, чтобы при выделении строки с новой датой, месяцом менялись данные в Edit.