AQuery.Active := false;
  AQuery.SQl.Text := 'select * ' +
                     'from Region as Reg Right JOIN ' +
                     '  (Estimate_level2 AS EL2 Right JOIN ' +
                     '    (Integral_Estimate as IE LEFT JOIN ' +
                     '      Estimate_level1 as EL1 on IE.date = EL1.date and IE.id_method = EL1.id_method and IE.id_reg = EL1.id_reg ' +
                     '    ) on EL1.date = EL2.date and EL1.id_method = EL2.id_method and EL1.id_reg = EL2.id_reg and EL1.id_Level1 = EL2.id_Level1 ' +
                     '  ) on reg.id_reg = el1.id_reg ' +
                     'where (EL1.date between "' + DateToStr(ChartDate1.Date) + '" and "' + DateToStr(ChartDate2.Date) + '") and EL1.id_method = ' + id + ' ' +
                     'order by reg.name';
  AQuery.Active := true;