Помогите с частью кода

[sasho999]

есть две таблицы (одна подчиненна другой) табл. страны и таблица (показатели) подключены через adoquery. Мне надо вывести среднее ариф. по столбцу таблицы "показатели" за заданный промежуток времени. Все работает, но когда в запрос добавляю условие учета времени прога выдает значение 0. Подскажите что у меня не так

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
     DateTimePicker1.Time := StrToTime('00:00:01');
     DateTimePicker2.Time := StrToTime('23:59:59');
     ADOQuery2.SQL.Clear;
     ADOQuery2.SQL.Text :='select *from показатели where id_страны=:id_страны and дата between :data1 and :data2 ORDER BY дата';
     ADOQuery2.Close;
     ADOQuery2.Parameters.ParamByName('data1').Value:=DateToStr(DateTimePicker1.DateTime);
     ADOQuery2.Parameters.ParamByName('data2').Value:=DateToStr(DateTimePicker2.DateTime);
     ADOQuery2.Active:=true;
 
end;
 
procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
     DateTimePicker1.Time := StrToTime('00:00:01');
     DateTimePicker2.Time := StrToTime('23:59:59');
     ADOQuery2.SQL.Clear;
     ADOQuery2.SQL.Text := 'select *from показатели where id_страны=:id_страны and дата between :data1 and :data2 ORDER BY дата';
     ADOQuery2.Close;
     ADOQuery2.Parameters.ParamByName('data1').Value:=DateToStr(DateTimePicker1.DateTime);
     ADOQuery2.Parameters.ParamByName('data2').Value:=DateToStr(DateTimePicker2.DateTime);
     ADOQuery2.Active:=true;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i:double;
begin
 DateTimePicker1.Time := StrToTime('00:00:01');
 DateTimePicker2.Time := StrToTime('23:59:59');
if Combobox1.ItemIndex = 0 then
  ADOQuery3.Active:=False;
  ADOQuery3.SQL.Clear;
  AdOQuery3.SQL.Text:='SELECT AVG(ВВП), id_страны FROM показатели where id_страны=:id_страны and дата between :data1 and :data2 group by id_страны';
 // при таком условии выдает значение 0
  if Combobox1.ItemIndex = 1 then
  AdOQuery3.SQL.Text:='SELECT AVG(ВВП_YoY), id_страны FROM показатели where id_страны=:id_страны group by id_страны';
  AdoQuery3.Open;
  i:= AdoQuery3.Fields[0].Asfloat;
  ADOQuery3.Close;
  ADOQuery3.Active:=true;
  Label2.Caption:=floatToStr (i);
  ADOQuery3.Parameters.ParamByName('data1').Value:=DateToStr(DateTimePicker1.DateTime);
  ADOQuery3.Parameters.ParamByName('data2').Value:=DateToStr(DateTimePicker2.DateTime);

[opencloser]

смотреть
DateTimePicker1.Time := StrToTime('00:00:01');
и
DateToStr(DateTimePicker1.DateTime) ;
что то тут не так....