Не находит параметр при построении графика

[Silverra]

Здравствуйте! Есть код, позволяющий строить график по запросу, график строится, но при построении выдает ошибку 'ID not found'. Вот код:

if radiobutton2.Checked then
    begin
      adoQuery1.Open;         //Выборка по давлению
        for x:= 0 to adoQuery1.RecordCount - 1 do
          begin
            SR:= TLineSeries.Create(DBChart1);
            DBChart1.AddSeries(SR);
            DBChart1.Series[x].ParentChart:= DBChart1;
            SR.LinePen.Width:= 2;
            SR.Pointer.Visible:= True;
            SR.Pointer.Style:= psCircle;
           adoQuery1.Next;
          end;
 
        for n:= 0 to DBChart1.SeriesCount - 1 do
          begin
            Query1:= TQuery.Create(self);   //Выборка даныых для загрузки в DBChart
            Query1.Close;
          Query1.DatabaseName:= 'ppd';
            Query1.SQL.Text:= 'select DT,Value from Archive where (ID:=331) and (DT between :DT1 and :DT2)';
           Query1.ParamByName('ID').value:=331 ;
           query1.ParamCheck := True;
            Query1.ParamByName('DT1').value:= Datetimepicker1.Date;
           Query1.ParamByName('DT2').value:= Datetimepicker2.Date;
            Query1.SQL.BeginUpdate;
           Query1.Open;
            DBChart1.Series[n].DataSource:= Query1;
              for i:= 0 to Query1.RecordCount do
                begin
                  DBChart1.Series[n].Marks.Visible:= True;
                  DBChart1.Series[n].Marks.BackColor:= DBChart1.Series[n].ValueColor[n];
                  DBChart1.Series[n].Marks.Font.Color:= clBlack;
                  DBChart1.Series[n].Marks.Font.Style:= [fsBold];
                  DBChart1.Series[n].XValues.DateTime:= True;
                  DBChart1.Series[n].XValues.ValueSource:= 'DT';
                  DBChart1.Series[n].YValues.ValueSource:= 'Value';
                  Query1.Next;
                end;
          end;
      DBChart1.Refresh;
    adoQuery1.Close;
    end;

[Аватар]

where (ID:=331) - это что?

[Stilet]

Верно подмечено:

            Query1.SQL.Text:= 'select DT,Value from Archive where (ID=:aID) and (DT between :DT1 and :DT2)';
           Query1.ParamByName('aID').value:=331 ;

Это конечно в том случае если поле ID вообще есть в таблице.