高手帮我看看这段程序中存储过程为什么不执行阿


procedure TCHLFM.BtnTZHClick(Sender: TObject);
VAR CHJNAME :STRING;
    GXNAME:STRING;
    PZHNAME:STRING;
    PHNAME:STRING;
    BZNAME:STRING ;
    BZCNAME:STRING ;
begin
ADOQOPEN(ADOQT,'SELECT * FROM CHLT WHERE RQ>=(DATEADD(mm, DATEDIFF(mm,0,'''+DBDTEEh.TEXT+'''), 0)-1) ');
with ADOQT do
 begin
 First;
 while not ADOQT.Eof do
  begin
   DBDTEhDAY.Value :=ADOQT['RQ'];
   CHJNAME:=ADOQT['CHJ'];
   GXNAME:=ADOQT['GX'];
   PZHNAME:=ADOQT['PZH'];
   PHNAME:=ADOQT['PH'];
   BZNAME:=ADOQT['BZ'];
   BZCNAME:=ADOQT['BZC'];
   //EDIT1.TEXT :=CHJNAME;
   //EDIT2.Text :=GXNAME;
   //EDIT3.Text :=PZHNAME;
   //EDIT4.Text :=BZNAME;
   //EDIT5.Text :=BZCNAME;
   ADOQLJ.Close ;
   ADOQLJ.SQL.Clear ;
   ADOQLJ.SQL.Add('Exec CreateTZH '''+DBDTEhDAY.Text+''',CHJNAME,GXNAME,PZHNAME,PHNAME,BZNAME,BZCNAME');
   ADOQLJ.ExecSQL ;
   Next;
  end;
 end;
end;存储过程CreateTZH在分析器中 Exec CreateTZH '2008-11-12','一分厂','合并','AC32K','131','丙','夜'能够执行，可是在这段程序中为什么
Exec CreateTZH '''+DBDTEhDAY.Text+''',CHJNAME,GXNAME,PZHNAME,PHNAME,BZNAME,BZCNAME
为什么不执行呢？
是变量使用不对还是什么原因啊？
在线等答案，谢谢