找错

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  itemc,strBZLX:string;
begin
  itemc:='311';
  with adoquery2 do
  begin
    close;
    sql.clear;
    sql.Add('SELECT * FROM QR_S WHERE ITEMC= :aa ORDER BY BZLE');
    Parameters.ParamByName('aa').Value:= itemc;
    open;
  end;
end;提示就是找不到  :aa 参数     
不知道哪里的毛病
100分   
找出问题就给分

Answer 1

adoquery2.Parameters.Clear;
adoquery2.Parameters.AddParameter.Name := 'aa';  //参数定義