为什么老是提示变量找不到？？请帮忙

我的数据库是oracle,为什么执行到Parameters.ParamByName('shuis').Value:=edit1.text;时,总是提示shuis,ysy,zzy找不到?请帮忙看看,谢谢!!!!procedure Thfcx.Button2Click(Sender: TObject);var
yuefen,shuis,qsy,zzy:string;
begin
  if edit1.Text='' then
    begin
      ShowMessage('未输入.');
      edit1.SetFocus();
      Exit;
    end;  yuefen:='shui'+ComboBox1.text;  screen.Cursor:=crSQLWait;
  with adoquery1 do
      begin
         close;
         sql.Clear;         sql.Add('(select nian_du||''年''||yue_fen||''月'' 月份,serv_id,acc_nbr dianhua,user_name 户名,');
         sql.Add('user_addr 地址,ichh,ctgn,gjctf,jibenfei,kuandaif,kdyuff,qitafei,qujianfei,');
         sql.Add('quneifi,shujufei,xinxife,youhui,heji,proname,ppp_name shequ,ttt_name qudao,');
         sql.Add('manager kuhujl,xing_ji xlxingj from '+yuefen+' where acc_nbr=:shuis ');
         sql.Add('and yue_fen>=:qsy and yue_fen<=:zzy) union all ');
         sql.Add('(select ''总计'' 月份,9999999 serv_id,''----'' dianhua,''----'' 户名,''----'' 地址,');
         sql.Add('trunc(sum(ichh),2) ichh,trunc(sum(ctgn),2) ctgn,');
         sql.Add('trunc(sum(gjctf),2) gjctf,trunc(sum(jibenfei),2) jibenfei,');
         sql.Add('trunc(sum(kuandaif),2) kuandaif,trunc(sum(kdyuff),2) kdyuff,');
         sql.Add('trunc(sum(qitafei),2) qitafei,trunc(sum(qujianfei),2) qujianfei,');
         sql.Add('trunc(sum(quneifi),2) quneifi,trunc(sum(shujufei),2) quneifi,');
         sql.Add('trunc(sum(xinxife),2) quneifi,trunc(sum(youhui),2) quneifi,');
         sql.Add('trunc(sum(heji),2) heji,''----'' proname,''----'' shequ,''----'' qudao,''----'' kuhujl,');
         sql.Add('''----'' xlxingj from '+yuefen+' where acc_nbr=:shuis and ');
         sql.Add('yue_fen>=:qsy and yue_fen<=:zzy) union all ');
         sql.Add('select ''平均'' 月份,9999999 serv_id,''----'' dianhua,''----'' 户名,''----'' 地址,');
         sql.Add('trunc(avg(ichh),2) ichh,trunc(avg(ctgn),2) ctgn,');
         sql.Add('trunc(avg(gjctf),2) gjctf,trunc(avg(jibenfei),2) jibenfei,');
         sql.Add('trunc(avg(kuandaif),2) kuandaif,trunc(avg(kdyuff),2) kdyuff,');
         sql.Add('trunc(avg(qitafei),2) qitafei,trunc(avg(qujianfei),2) qujianfei,');
         sql.Add('trunc(avg(quneifi),2) quneifi,trunc(avg(shujufei),2) quneifi,');
         sql.Add('trunc(avg(xinxife),2) quneifi,trunc(avg(youhui),2) quneifi,');
         sql.Add('trunc(avg(heji),2) heji,''----'' proname,''----'' shequ,''----'' qudao,''----'' kuhujl,');
         sql.Add('''----'' xlxingj from '+yuefen+' where acc_nbr=:shuis and ');
         sql.Add('yue_fen>=:qsy and yue_fen<=:zzy order by 月份');         Parameters.ParamByName('shuis').Value:=edit1.text;
         Parameters.ParamByName('qsy').Value:=ComboBox2.text;
         Parameters.ParamByName('zzy').Value:=ComboBox3.text;         open;
         screen.Cursor:=crarrow;
      end;
end;