极难问题,想了好久一直没解决

摘录程序中两个片断:
片断一:
**************************************************************************
 if Exist('GroupCall', 'MeetNo=''' + AdGroupTel + '''') > 0 then
    begin
        Session.UpdateResponse(Response);
        Response.SendRedirect('/Manage/Manage.dll/ShowMsg?Msg=该集群号码已登记');
        exit;
    end;
**************************************************************************
片断二: with DM.ADOCommand1 do
  begin
    Prepared := false;
    CommandText :='Insert Into GroupCall(UseNo,BillTel,meetNo,TCall,Num,AutoNo,Pwd)'
    + ' Values(' + '000' + ',' + AdBillTel + ',' + AdGroupTel +
    ','+ AdTCall + ',' + AdGroupNum + ',' + AdGroupNo + ',' + AdGroupPwd + ')';
    Prepared := true;
    Execute;
  end;
==========================================================================
但执行片断一时候,片断二插入数据时候,提示错误:Internal Application Error
第 1 行: ',' 附近有语法错误。 --------------------------------------------------------------------------------
/GroupCallAdd如果直接执行片断二,可以正常插入.
其中片断一的Exit()为定义好的函数:如下function Exist(const Table, Condition: string): Smallint;
var
  DDL                                   : string;
begin
  DDL := 'select count(*) from ' + table + ' where ' + condition;
  Result := ExeDDL(DDL).Fields[0].Value;
end;