Реализация БД

if CheckBox_high_low.Checked=true then begin
        if profit_transaction=1 then begin
           for index_hihg_low:=0 to 1 do begin
               if Form9.CheckListBox1.checked[index_hihg_low]=true then begin
                  for index_hour:=0 to 6 do begin
                      if Form8.CheckListBox1.checked[index_hour]=true then begin
                         if index_hour=0 then begin
                            hour_start:='9:31:00';
                            hour_finish:='10:30:59';
                         end;
                         if index_hour=1 then begin
                            hour_start:='10:31:00';
                            hour_finish:='11:30:59';
                         end;
                         if index_hour=2 then begin
                            hour_start:='11:31:00';
                            hour_finish:='12:30:59';
                         end;
                         if index_hour=3 then begin
                            hour_start:='12:31:00';
                            hour_finish:='13:30:59';
                         end;
                         if index_hour=4 then begin
                            hour_start:='13:31:00';
                            hour_finish:='14:30:59';
                         end;
                         if index_hour=5 then begin
                            hour_start:='14:31:00';
                            hour_finish:='15:00:59';
                         end;
                         if index_hour=6 then begin
                            hour_start:='15:01:00';
                            hour_finish:='16:00:00';
                         end;
                         for index_day:=1 to 31 do begin
                             if Form6.CheckListBox1.checked[index_day]=true then begin;
                                for index_month:=1 to 12 do begin
                                    if Form5.CheckListBox1.Checked[index_month]=true then begin
                                       for index_year:=0 to Form2.CheckListBox1.count-1 do begin
                                           if Form2.CheckListBox1.Checked[index_year]=true then begin
                                              ADOQuery1.SQL.Clear;
                                              ADOQuery1.SQL.Add('SELECT SUM(Profit) AS Sum_profit FROM report Where');
                                              ADOQuery1.SQL.Add('((year='''+Form2.CheckListBox1.Items[index_year]+'''))');
                                              ADOQuery1.SQL.Add('and (month='''+IntToStr(index_month)+''')');
                                              ADOQuery1.SQL.Add('and (day='''+Form6.CheckListBox1.Items[index_day]+''')');
                                              ADOQuery1.SQL.Add('and (time between '''+hour_start+''' and '''+hour_finish+''')');
                                              ADOQuery1.SQL.Add('and (HighLow='''+IntToStr(index_hihg_low+1)+''')');
                                              ADOQuery1.Active:=true;
                                              ADOQuery1.First;
                                              Sum_profit[index_hihg_low]:=Sum_profit[index_hihg_low]+ADOQuery1.FieldValues['Sum_profit'];
                                           end;
                                       end;
                                    end;
                                end;
                             end;
                         end;
                      end;
                  end;
               end;
           end;
           Form9.Show;
           Form9.Caption:='óñòîãðàìà ïðèáóòêó ïî High/Low';
           Form9.Chart1.Series[0].Clear;
           for index_hihg_low:=0 to 1 do begin
               chart_x:=index_hihg_low+1;
               chart_y:=sum_profit[index_hihg_low];
               Form9.Chart1.Series[0].AddXY(chart_x,chart_y);
           end;
        end;